Fórum How Can I clean the mouse buffer Delphi #586678

Hi, I am using the procedure below but the Delphi says "undeclared identifier" to TMsg and PeekMessage.

Someone can Helpe me please?

I´m using delphi tokyo 10.2.1 and this app is to IOS and Android.


procedure TForm1.EmptyMouseQueue;
var
Msg: TMsg;
begin
while PeekMessage( Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
PM_REMOVE or PM_NOYIELD )
do;
end;