Mousemove schlägt bei Opendialog durch

[peterbelow]

Zitat von skoschke:

Delphi-Quellcode:

{!
<summary>
 Remove all mouse messages from the calling thread's message queue.</summary>
}
procedure EmptyMouseQueue;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
    PM_REMOVE or PM_NOYIELD) do
    ;
end;