@Uwe:
Das kompiliert bei mir aber nur, wenn ich den Self.SendMessage Aufruf in einer procedure verbastle:
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,
procedure
begin
Self.SendMessage(Sender, AMessage, ADispose)
end)
end);
end;
Ansonsten ne schöne Idee mit der Verzögerung!
