TPanel zur Laufzeit anlegen und löschen

[milos]

Hab das bisher immer so gelöst, dass ich die Komponente in eine Liste gepackt habe. Da du Delphi 5 verwendest wirst du wohl Arrays benutzen müssen:

Delphi-Quellcode:

// Deklarationen
Panels : array of TPanel;

// Funktionen
procedure TForm1.btn1Click(Sender: TObject);
var
  LPanel : TPanel;
  c : integer;
begin
  SetLength(Panels,10);
  for c := 0 to 9 do
  begin
    LPanel := TPanel.Create(self);
    LPanel.Parent := self;
    LPanel.Height := 15;
    LPanel.Width := 100;
    LPanel.Top := c * 20;
    LPanel.Caption := 'Panel #' + IntToStr(c);
    Panels[c] := LPanel;
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  LPanel : TPanel;
  c : integer;
begin
  for c := 0 to Length(Panels)-1 do
  begin
    Panels[c].free;
  end;
  SetLength(Panels,0);
end;