Sender.Free

[relocate]

Da ich ungern den alten Post ausgraben möchte, verlinke ich nur mal...

https://www.delphipraxis.net/35368-sender-free.html

Ich habe den selben Fall, dass ein Control eine Reihe von Dingen erledigen soll und wenn er damit fertig ist, sich selbst entfernen soll. Es ist ein zur Laufzeit erzeugtes Control.
Wahlweise kommt die Meldung Priviligierte Anweisung oder eine Exception.
Im Posting wird die Variante über Postmessage empfohlen, leider nur nicht wie das gemacht werden soll, weiß hierzu jemand Rat.

Gruß relocate

[KodeZwerg]

Nur ganz grob angedeutet ohne auf Inhalt einzugehen...

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 123;

type
  TForm1 = class(TForm)
  ...
  private
    procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
  ...


procedure TForm1.OnMyMessage(var Msg: TMessage);
begin
// was soll hier passieren?
end;

//irgendwo wo's benötigt ist
procedure TForm1.Test(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_MY_MESSAGE, 0, 0);
end;

[relocate]

Passt, danke!

[himitsu]

Oder (das arbeitet intern auch über die Messages)

Delphi-Quellcode:

//irgendwo wo's benötigt ist
procedure TForm1.Test(Sender: TObject);
begin
  TThread.ForceQueue(nil, procedure
    begin
       // was soll hier passieren?
    end);
end;