TObjectList Object soll sich selbst löschen

[Sir Rufo]

Folgender Satz beschreibt dein Problem:

Zitat:

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

Das OnClick-Ereignis wird ja von der Button-Instanz selbst aufgerufen und genau diese Instanz schmeißt du aus dem Speicher. Der Rücksprung nach dem OnClick-Ereignis liegt aber nun noch in der Button-Instanz, und die gibt es nicht mehr. Darum der Zugriffsfehler

Das Free muss "außerhalb" erfolgen. Möchte man dieses Event-basiert haben, dann bleibt nur die Verwendung von PostMessage

[Culxxaw]

Uffa,
also dass der Button die Objektliste nicht kennt und er sich nicht direkt selbst löschen kann erscheint mir einleuchtend.
Allerdings verstehe ich nicht so ganz, wie ich das "free" außerhalb platzieren soll. Reicht es denn, wenn ich z.b. TButton ableite und im Destructor den Button aus der Objektliste entferne? So z.b.:

Code:

destructor TMyButton.Destroy;
begin
  objektliste.DeleteItem(index);
  inherited;
end;

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

[shmia]

Zitat von Sir Rufo:

Das Free muss "außerhalb" erfolgen. Möchte man dieses Event-basiert haben, dann bleibt nur die Verwendung von PostMessage

Hier ist noch etwas Sourcecode dazu.

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