Как очистить буффер клавиатуры?
Как очистить буффер клавиатуры?
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
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий