Panel incl. aller Komponenten zerstören

[DRK11]

Hallöchen,

ich bin neu in dieser Forum und hoffe, dass mir jemand helfen kann.

ich möchte eine Liste mit Panels realisieren. auf Knopfdruck werden weitere Panels mit Einträgen hinzugefügt.
Innerhalb der Panels ist ein Button durch den das Panel wieder gelöscht werden soll. Das funktioniert aber nicht,
wahrscheinlich die OnClick-Ereignisbehandlung, die beim Drücken auf den Button ausgelöst wird natürlich beim Destroy des
übergeordneten Panels auch gelöscht wird. Ich bekomme immer einen Abstraktion-Fehler.

Hier die "Lösch--Methode"

Delphi-Quellcode:

procedure xxx.DelClick (Sender:TObject);
var
  XPanel : TPanel;
  XBitBtn : TBitBtn;
  x : Integer;
  Found : Boolean;
begin
  x := 0;
  found := false;
  repeat
    XPanel := Liste[x];
    XBitBtn:= sender as TBitBtn;
    if XBitBtn.Parent = XPanel then
    Begin
      Found := True;
      Liste.delete(x);
      XPanel.destroy;
    end;
    inc(x);
  until (x = (Liste.Count)) or Found;
end;

Vieleicht hat ja jemand eine Idee.

Dirk

[cookie22]

Wenn du das Panel frei gibst, dann werden die Komponenten die darauf liegen automatisch mit frei gegeben. Du solltest Free aufrufen und nicht Destroy.

Du kannst einen Timer starten und damit das Panel löschen.

[DRK11]

Das mit dem Timer habe ich auch schon gemacht, ist aber nur "von Hinten durchs Auge!".
Das mit der free-methode ergibt den selben Fehler.

Dirk

[mjustin]

Zitat von DRK11:

Das mit dem Timer habe ich auch schon gemacht, ist aber nur "von Hinten durchs Auge!".
Das mit der free-methode ergibt den selben Fehler.

Dirk

Ist "Liste" zufällig vom Typ TStrings und wird sie mit Liste := TStrings.Create erzeugt?

[DRK11]

Nein,

Liste := TList.Create;

Diese Liste soll nur die Panels Verwalten. In den Panels sind Buttons.
Im OnClick-Ereigniss der Buttons steht der oben angegebene Code.
Das Problem ist, das innerhalt des OnClic-Ereignisses das Panel und damit der
Button, von dem das Ereigniss ausgelöst wird zerstöhrt wird.

Natürlich funktioniert das mit dem Timer
- Komponente merken
- Timer starten
- OnClick vernünftig verlassen
- Timer auslösen
- Panel ist vernünftig gelöscht.

Ich dacht nur, vieleicht gäbe es ja noch eine elegantere Möglichkeit.

mfg

Dirk

[Ralf Kaiser]

Statt einen Timer zu verwenden kannst du deinem Formular mit "PostMessage" eine Nachricht schicken. Diese wird von Delphi erst verarbeitet wenn der aktuell Eventhandler (also der OnClick-Handler des Buttons) abgearbeitet wurde. In dem Eventhandler der auf diene Nachricht reagiert kannst du dann das Panel freigeben.

Die Methode "TForm.Release" arbeitet genauso. Damit kann man aus einem Eventhandler eines Formulars das Formular selbst freigeben.

Ciao,
Ralf

[shmia]

Zitat von Ralf Kaiser:

Statt einen Timer zu verwenden kannst du deinem Formular mit "PostMessage" eine Nachricht schicken.

Diese Technik wird hier gezeigt:
http://www.delphipraxis.net/25791-co...erstoeren.html

[DRK11]

Danke,

das mit dem Beispiel war super verständlich und hat auch super funktioniert.

Dirk

[himitsu]

Zitat von cookie22:

Wenn du das Panel frei gibst, dann werden die Komponenten die darauf liegen automatisch mit frei gegeben. Du solltest Free aufrufen und nicht Destroy.

Nein, Parent-Beziehungen zerstören keine Objekte.
Also nur weil was auf einem Panel drauf liegt, wird es nicht mit dem Panel zerstört.

Dafür sind die Owner-Beziehungen da.