TEdit, Tastaturpuffer gefüllt?

[shmia]

Versuch' mal das:

Delphi-Quellcode:

function IsKeyboardBufferEmpty:boolean;
var
   Msg: TMsg;
begin
   Result := not PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_NOREMOVE);
end;