Hallo TiGü,
genau das macht mir Angst.
Sender macht Create, und wer Free'D das Ganze ?
Deshalb war ich auf Records umgestiegen.
Dein Beispiel unten liess mich hoffen das kein separates Create/Destroy nötig
TMyMegaGenericMessage.Create
Könnte man vielleicht damit verheiraten, so das es sich über ADipose selbst zerstört.
Delphi-Quellcode:
procedure TMessageManagerHelper.SendMessageAsynch(const Sender: TObject; AMessage: TMessage; ADelayMS: Cardinal;
ADispose: Boolean);
begin
TTask.Run(
procedure
begin
if ADelayMS > 0 then begin
Sleep(ADelayMS);
end;
TThread.Queue(nil,
Self.SendMessage(Sender, AMessage, ADelayMS);
end);
end;
procedure TMessageManagerHelper.SendMessageAsynch(const Sender: TObject; AMessage: TMessage; ADispose: Boolean);
begin
SendMessageAsynch(Sender, AMessage, 0, ADispose);
end;
Rollo