如何清空鍵盤的緩衝區(Buffer)

如何清空鍵盤的緩衝區(Buffer)?
可用於進入某個輸入的TFrom前清空Keyboard Buffer,以免誤輸入錯誤的資料!

procedure EmptyKeyQueue;
var msg: TMsg;
begin
  while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do;
end;

轉貼至:http://delphi.ktop.com.tw/board.php?cid=16&fid=49&tid=18231