TPanel zur Laufzeit anlegen und löschen

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

[BadenPower]

Zitat von Helmi:

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

Wobei Dein Code-Beispiel mit statischen Arrays sowieso nicht funktionieren würde.

Dann kannst Du auch gleich bei Length(Array) - 1 bleiben, da ein dynamisches Array immer bei 0 beginnt und der letzte Index immer Length-1 ist.