Hallo MrPayne,
ich verwende in einem TThread folgendes:
Delphi-Quellcode:
repeat
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut
begin
// trifft alles für Threads normalerweise nicht zu
{if not IsHintMsg(Msg) and not IsMDIMsg(Msg) and
not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then}
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
until CanClose;
Sollte auch für Deine Zwecke funktionieren. Falls benötigt, das Auskommentierte wieder entkommentieren...
Grüsse
...Doc