nachrichtenschleife aufrecht erhalten

[Luckie]

Versuch das:

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : ProcessMessages
// Comment   : Replacement for ProcessMessages of TApplication
procedure ProcessMessages(hWnd: DWORD);
var
  Msg               : TMsg;
begin
  while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;