Delphi-Quellcode:
procedure ProcessMessages(HWND: DWORD);
var Msg: TMsg;
begin
While PeekMessage(Msg, HWND, 0, 0, PM_REMOVE) do // Nachrichten abfragen und Verarbeiten..
begin
TranslateMessage(Msg); // umwandeln der Virtual-Key Messages zu Character Messages
DispatchMessage(Msg); // Messagesr Verarbeiten
end;
end;
TApplication.ProcessMessages macht auch nix anderes.
...den Rest hat
BlackJack beantwortet.