In Thread auf Event warten

[Björn Ole]

Danke, die Nachrichtenschleife läuft!
Meinst du das mit PostThreadMessage so in etwa?

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  {...} 
  protected
    procedure Terminate;
  end;

{ TMyThread }

{...}

procedure TMyThread.Terminate;
begin
  PostThreadMessage(Self.ThreadID, WM_QUIT, 0, 0);
  inherited Terminate;
end;

Und warum braucht man das? Warum die Schleife nicht so:

Delphi-Quellcode:

while (not Terminated) and GetMessage(Msg, 0, 0, 0) do
  DispatchMessage(Msg);