Thread zum Fangen von Messages

[neolithos]

Beispiel:

thread.Execute;
begin
per registerwindow und createwindow ein unsichtbares fenster erstellen
while not GetMessage(msg, 0, 0, 0) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end;

- Achtung: WM_QUIT beachten
- besser als GetMessage wäre Getmessage kompiniert mit MsgWaitForMultipleObjects