Delphi - база знаний

       

Как очистить буффер клавиатуры?


Как очистить буффер клавиатуры?






procedureEmptyKeyQueue;
var
  msg: TMsg;
begin


  while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do
    ;
end;

begin
  EmptyKeyQueue;
end.

Взято с

Delphi Knowledge Base






Содержание раздела