Wie wäre es damit (Ersatz für Application.ProcessMessages):
Delphi-Quellcode:
Procedure ProcessPaintMessages;
Var
Msg : TMsg;
Begin
While PeekMessage(Msg, 0, WM_PAINT, WM_PAINT, PM_REMOVE) Do
Begin
// TranslateMessage(Msg); // translate only Keyboard-Messages
DispatchMessage(Msg);
End;
End;
Damit werden nur Paint-Messages verarbeitet; alle anderen Messages verbleiben in der Queue.