TPanel zur Laufzeit anlegen und löschen

[khh]

Hallo zusammen,
ich erzeuge im oncreate oder im on show des Form in einer Schleife mehrere Panels mit diversen Beschriftungen.
Das klappt auch so.
Jetz möchte ich aber auf "Knopfdruck" heisst auf Buttonklick diese Panels löschen und dafür andere Panels(mit Beschriftung) erzeugen.

Ein myCustomPanel.free; löscht mir nur den zuletzt erzeugten Panel.

Wie funktioniert das richtig?

Danke gruss KH

[DeddyH]

Pack sie in ein Array oder eine TObjectList/TComponentList.

[Nersgatt]

Merk Dir die Instanzen der Panels beim Erstellen z.B. in einer TObjectList. Dann kannst Du die zum freigeben einfach durchgehen.

[Sir Rufo]

Oder man nimmt eine TComponent-Instanz als Owner, die man dann einfach freigibt.

Delphi-Quellcode:

TMyForm = class( TForm )
private
  FPanelAncestor : TComponent;
  procedure BuildPanels;
end;

procedure TMyForm.BuildPanels;
var
  LPanel : TPanel;
begin
  FreeAndNil( FPanelAncestor );
  FPanelAncestor := TComponent.Create( Self );
  
  LPanel := TPanel.Create( FPanelAncestor );
  LPanel.Parent := Self;
  ...
end;

[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;

[Dalai]

Zitat von 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:

TList und TObjectList gibt's auch schon im Delphi 5. Und generische Listen sind hierfür ja nicht unbedingt notwendig.

MfG Dalai

[milos]

Zitat von Dalai:

TList und TObjectList gibt's auch schon im Delphi 5. Und generische Listen sind hierfür ja nicht unbedingt notwendig.

MfG Dalai

Ach was und ich hatte nie das Glück das raus zu finden?
Hab mich immer schön mit Arrays rumgeschlagen

[khh]

ich danke euch

[Helmi]

mit "low" und "high" ist man auf der sichereren Seite, wenn sich das Array von der Anzahl der Elemente ändert:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
   LPanel : TPanel;
   c : integer;
begin
   SetLength(Panels,10);
   for low(Panels) to high(Panels) do  //<--
   begin
{ ...}

Wobei natürlich low(Panels) bei dynamischen Arrays auch durch eine 0 ersetzt werden kann

[milos]

Zitat von Helmi:

mit "low" und "high" ist man auf der sichereren Seite, wenn sich das Array von der Anzahl der Elemente ändert:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
   LPanel : TPanel;
   c : integer;
begin
   SetLength(Panels,10);
   for low(Panels) to high(Panels) do  //<--
   begin
{ ...}

Wobei natürlich low(Panels) bei dynamischen Arrays auch durch eine 0 ersetzt werden kann

Stimmt, habe ich bisher noch nicht beachtet, habe jedoch auch immer geachtet, dass keine Fehler auftauchen sollten.
Werde ich in Zukunft jedoch so machen, danke.