TObjectList Object soll sich selbst löschen

[Culxxaw]

Okay vielen Dank an alle! Habs mit Hilfe von Postmessage und dem Link von shmia gemacht und jetzt klappts wunderbar.

[himitsu]

Zitat:

Säge nicht an dem Ast auf dem du gerade sitzt!

Prinzipiell trifft das zu, aber

OnClick wird von Application, bzw. von der Message-Loop darin aufgerufen.
Nach dem Ausführen von OnClick wird nicht nochmal auf den Sender zugegriffen.

Darum "kann" man, in diesem Fall, den Sender auch löschen,
da man quasi auf einem anderem Ast sitzt.

Zitat:

Reicht es denn, wenn ich z.b. TButton ableite und im Destructor den Button aus der Objektliste entferne?

sollte reichen

Zitat:

Denn eigentlich weiß der Button doch immer noch nicht, dass die Objektliste existiert...

Darum mußt du ja dem Button diese Liste vorher mitteilen und er merkt sie sich bis dahin.

Oder es gibt nur eine "globale" Liste, wo er sich dann rauslöscht.

[Sir Rufo]

Zitat von himitsu:

Zitat:

Säge nicht an dem Ast auf dem du gerade sitzt!

Prinzipiell trifft das zu, aber

OnClick wird von Application, bzw. von der Message-Loop darin aufgerufen.
Nach dem Ausführen von OnClick wird nicht nochmal auf den Sender zugegriffen.

Darum "kann" man, in diesem Fall, den Sender auch löschen,
da man quasi auf einem anderem Ast sitzt.

Ich glaube du hast dann ein anderes Delphi als ich.
Bei mir sieht das so aus:

Zitat von Controls.pas:

Delphi-Quellcode:

procedure TControl.WMLButtonUp(var Message: TWMLButtonUp); // Hier wird die Nachricht verarbeitet und Click aufgerufen

procedure TControl.Click;  // und hier macht es klick

Irgendwie fehlt mir das Application da (gut das ist immer irgendwo) aber für mich erfolgt der Aufruf aus der Instanz vom Button aufgerufen.

[stahli]

Nachfolgendes Projekt macht bei mir keine Probleme.
Wichtig ist wohl nur, ob der Komponentencode nochmal auf "Self" zugreift.
Wenn nicht, gibt es keine Probleme.

Delphi-Quellcode:

unit fFreeTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  FreeAndNil(Sender);
end;

end.

[himitsu]

Zitat von stahli:

Nachfolgendes Projekt macht bei mir keine Probleme.
Wenn nicht, gibt es keine Probleme.

Auch wenn FreeAndNil unnötig ist, da der Parameter Sender eh nicht wiederverwendet, bzw. nachfolgen genutzt wird. (.Free würde reichen, aber schlimm isses nicht)

Zitat von stahli:

Wichtig ist wohl nur, ob der Komponentencode nochmal auf "Self" zugreift.

Self ist in diesem Fall die Form.

PS: In Ereignisprozedur wie OnClose die Form freizugeben ist da schon schwerer.

Zitat:

Irgendwie fehlt mir das Application da (gut das ist immer irgendwo)

Application.Run; (siehe .dpr), bzw. genauer die TApplication.ProcessMessage behandelt die Window-Messages, und von dort aus wird letztendlich dein procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP; aufgerufen.




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

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