Hi,
Delphi-Quellcode:
begin
for I := 1 to high(oberflächen) do
begin
if Assigned(oberflächen[I]) and (oberflächen[I] is TPanel) then
(Oberflächen[I] as TPanel).Visible := False;
end;
Gruß oki
[edit] himitsu war schneller und ich hab mir hier die Prüfung auf Visible gespart, da ich davon ausgehe, dass alle Panels unvisible geschaltet werden sollen. [/edit]