Как очистить буфер клавиатуры? |
Previous Top Next |
Code: |
procedure EmptyKeyQueue; var msg: TMsg; begin while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do ; end;
begin EmptyKeyQueue; end. |
©Drkb::01522
Взято с Delphi Knowledge Base: http://www.baltsoft.com/