TObjectList Object soll sich selbst löschen

[stahli]

FreeAndNil habe ich zum Testen genutzt, damit auch der Pointer auf nil gesetzt wird (ist ja "extremer" beim Fehlertest).

Zugriff auf "Self" bezog ich auf den Code innerhalb des TButton (der Code, der noch nach dem Aufruf der Ereignisbehandlung folgt, also MINDESTENS "end;").

Zitat:

Wie gesagt, einen Button in seinem OnClick freizugeben ist kein Problem.

Es sei denn, eine Komponente würde in ihrer Methode Click nach dem Aufruf einer zugewiesenen Ereignisbehandlung noch einmal auf ihre Daten zugreifen:

Delphi-Quellcode:

procedure TTestControl.Click;
begin
  if Assigned(FOnClick) then
    FOnClick(Self)
  Caption := 'ERROR if Self = nil'
end;

[himitsu]

Was aber bei einem TButton nicht der Fall ist.

[Sir Rufo]

Zitat von himitsu:

Was aber bei einem TButton nicht der Fall ist.

Na dann wollen wir mal hoffen, dass das auch so bleibt, sonst funktioniert der Code nur bis Delphi 20xx und dann kracht es.

[stahli]

In einem solchen Fall würde ich es vorziehen, die Komponente lediglich unsichtbar zu machen, in eine Löschliste aufzunehmen und deren Inhalte dann bei Gelegenheit (Timer/OnIdle) aufzulösen.

[Sir Rufo]

Eine Möglichkeit ist das auch, nur bevorzuge ich aber lieber Push als Poll.

Und die PostMessage Variante ist doch sehr charmant.