>>repeat until PeekMessage(MsgStruct, Form1.Handle, WM_KEYFIRST, WM_KEYLAST,
>>PM_REMOVE) = 0;
>>
>>(warning - untried)
>
>
>I think you need to be more selective about the messages - this
>will toss EVERYTHING. And if something is "happening" that
>keeps sending messages this loop never terminates.
whoops - I'm wrong about this.
it won't toss everything - but i think it will stop when a
non - kbd message shows up even if there's another keyboard
event buffered after it.
(sorry - ...)
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
