Einzelnen Beitrag anzeigen

skoschke

Registriert seit: 6. Jan 2009
523 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Mousemove schlägt bei Opendialog durch

  Alt 27. Jun 2019, 07:16
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;
Wann soll das aufgerufen werden?
Nach dem Opendialog.execute bringt es keinen Effekt!

Ciao
Stefan
  Mit Zitat antworten Zitat