Dynamisch erstellte CategoryPanel wieder freigeben - Wie?

[torud]

Hallo Wissende,

mit folgendem Code kann man ja dynamisch CatgeroyPanel auf einer CategoryPanelGroup anlegen.

Delphi-Quellcode:

var
  P: TCategoryPanel;
begin
  P := TCategoryPanel.Create(panPages);
  P.Parent := panPages;
  P.PanelGroup := panPages;
  p.Caption := 'Page 1';
  p.Height := 180;
  p.Tag := Formular.Pages.Count;

Mich interessiert nun, wie ich diese wieder freigeben kann.

Damit scheints nicht zu funktionieren:

panPages.Panels.Clear; Muss ich hier eventuell mit einem Cast auf Panels[i] arbeiten?

[uligerhardt]

Wenn du sie explizit löschen willst oder musst:

Delphi-Quellcode:

for i := 0 to Pred(panPages.Count) do
  panPages.Panels[i].Free;

Wenn die Panels genauso lang wie die Gruppe leben sollen, kannst du das löschen aber auch dem Owner überlassen.

[torud]

Hallo Uli,

diese Idee hatte ich auch schon, aber wenn ich versuche den Code so anzuwenden, dann erhalte ich komischerweise immer die Fehlermeldung, dass Free ein undefinierter Bezeichner wäre.

Wenn ich die Free-Methode direkt auf ein fixes Panel, dann klappts.

Versuche ich es über einen Cast:
(panPages.Panels[0] as TCategoryPanel).Free; ist die Meldung, dass der Operatorentyp so nicht anwendbar ist.
Das macht ja auch Sinn, weil die Panels vom Typ TList sind.

Hast Du hierfür noch eine Erklärung?
Wundert mich, dass es so kompliziert ist.

[sx2008]

Zitat von uligerhardt:

Delphi-Quellcode:

for i := 0 to Pred(panPages.Count) do
  panPages.Panels[i].Free;

Das würde Probleme machen, weil durch das Freigeben sich Verschiebungen ergeben.
Beim Löschen von Objekten muss die Schleife rückwärts laufen:

Delphi-Quellcode:

for i := Pred(panPages.Count) downto 0 do
  panPages.Panels[i].Free;

[uligerhardt]

Zitat von sx2008:

Beim Löschen von Objekten muss die Schleife rückwärts laufen:

Ähm ja. Das kommt davon, wenn man Code postet, ohne ihn vorher zu testen.

[Uwe Raabe]

Da Panels eine TList ist, sind die Einträge simple Pointer. Also besser so (dann ist auch die Reihenfolge egal):

Delphi-Quellcode:

for i := 0 to panPages.Count - 1 do
  TCustomCategoryPanel(panPages.Panels[i]).PanelGroup := nil;

[torud]

Danke für die Antworten!

Damit klappts dann wirklich, denn der vorherige Code gibt die PanelGroup frei, was tödlich für andere Panels und den gesamten TCategoryPanel ist.

TCustomCategoryPanel(panPages.Panels[0]).Free; Dieser Code gibt jeweils das erste Panel wieder frei.

Jetzt muss ich nur noch rausfinden, wie man das aktuell fokussierte Panel herausbekommt, damit ich den Index für´s Löschen richtig setzen kann.