DEB DelphiEventBus vs. System.Messaging.TMessageManager

[Uwe Raabe]

Zitat von TiGü:

Das kompiliert bei mir aber nur, wenn ich den Self.SendMessage Aufruf in einer procedure verbastle:

Na klar! Das kommt, wenn man nach Copy-Paste das Compile vergisst...

Im Original ist das noch etwas allgemeiner gehalten:

Delphi-Quellcode:

procedure Postpone(AProc: TThreadProcedure; ADelayMS: Cardinal = 0);
begin
  TTask.Run(
    procedure
    begin
      if ADelayMS > 0 then begin
        Sleep(ADelayMS);
      end;
      TThread.Queue(nil, AProc);
    end);
end;

procedure Postpone(AProc: TThreadMethod; ADelayMS: Cardinal = 0);
begin
  TTask.Run(
    procedure
    begin
      if ADelayMS > 0 then begin
        Sleep(ADelayMS);
      end;
      TThread.Queue(nil, AProc);
    end);
end;