Dynamisch erzeugte Komponente soll sich selbst löschen...

[arc]

Ich habe mich letztendlich für die Timerversion entschieden, die ja nichts anderes ist als die Sache mit den Messages, nur auf vertrautem Terrain.
Letztenendes sieht es so aus:

Delphi-Quellcode:

type TModifyModule = class(TSplitModule)
                       DeleteTimer:TTimer;

                       constructor Create; override;
                       procedure eventHandlerParameterFormControlsDelete(Sender:TObject); virtual;
                       procedure eventHandlerParameterFormControlsDeleteWrapper(Sender:TObject); virtual; 
                       destructor Destroy; override;
                     end;

constructor TModifyModule.Create;
begin
  inherited Create;
  DeleteTimer:=TTimer.Create(nil);
  DeleteTimer.Enabled:=false;
  DeleteTimer.Interval:=10;
end;

procedure TModifyModule.eventHandlerParameterFormControlsDelete(Sender:TObject);
begin
  // code zum Löschen
  DeleteTimer.Enabled:=false;
end;

procedure TModifyModule.eventHandlerParameterFormControlsDeleteWrapper(Sender:TObject);
begin
  DeleteTimer.OnTimer:=eventHandlerParameterFormControlsDelete;
  DeleteTimer.Enabled:=true;
end;

destructor TModifyModule.Destroy;
begin
  FreeAndNil(DeleteTimer);
  inherited Destroy;
end;

Funktioniert bisher wunderbar...

[Bummi]

Zitat:

Ich habe mich letztendlich für die Timerversion entschieden, die ja nichts anderes ist als die Sache mit den Messages, nur auf vertrautem Terrain.

Ich sehe zwar die Verwandschaft nicht und finde die Messagemethode deutlich überlegen, aber wie gesagt, ich habe es früher ebenfalls umgesetzt wie Du jetzt.

MfG
Bummi

[arc]

Ich meine die Verwandschaft folgendermaßen, es geht am Ende ja lediglich darum, die Methode indirekt aufzurufen. Bei der Message lege ich eine Message in die Queue, die dann entsprechend abgearbeitet wird bzw die Methode aufruft. Beim Timer ist der Timer die Queue und ruft anschließend die Methode auf.

[shmia]

Ich habe zu selbstzerstörerischen Controls vor langer Zeit etwas in der Code-Library geschrieben. klick

Im Gegensatz zur Lösung von Bummi schicke ich die Message an das Formular und nicht an das Control das Sterben soll.
Ich finde das besser, weil so das Control "von Aussen" gemeuchelt wird und man ausserdem den Trick mit TPanel=Class(ExtCtrls.TPanel) nicht braucht.

Aus heutiger Sicht würde ich nur noch das Killen etwas vereinfachen:

Delphi-Quellcode:

// Hilfsprocedure für einfacheres Morden von Controls
procedure TForm1.KillObjectByMessage(c:TObject);
begin
  PostMessage(Self.Handle, WM_KILL_CONTROL, 0, Integer(c));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Sender.Free; // würde meistens eine Exception auslösen
  KillObjectByMessage(Sender);
end;