Prüfen, wieviele Panels auf der form sind und löschen

[Christian18]

Hallo,

wie kann ich Prüfen wieviel Panels ich auf meiner Form habe??? Und siese dann löschen. Ich glaube das macht man mit destroiy

[Luckie]

Als Einstiegshilfe für die Hilfe: ComponentCount.

[chrisw]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:= ComponentCount-1 downto 0 do
    if Components[I] is TPanel then
      TPanel(Components[I]).Free;
end;