Registriert seit: 6. Jan 2009
523 Beiträge
Delphi 10.4 Sydney
|
AW: Mousemove schlägt bei Opendialog durch
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
|