Thema: Delphi Tastaturpuffer leeren

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#20

Re: Tastaturpuffer leeren

  Alt 22. Jul 2005, 18:11
Delphi-Quellcode:
procedure ProcessMessages(HWND: DWORD);
var Msg: TMsg;
begin
  While PeekMessage(Msg, HWND, 0, 0, PM_REMOVE) do // Nachrichten abfragen und Verarbeiten..
  begin
    TranslateMessage(Msg); // umwandeln der Virtual-Key Messages zu Character Messages
    DispatchMessage(Msg); // Messagesr Verarbeiten
  end;
end;
TApplication.ProcessMessages macht auch nix anderes.

...den Rest hat BlackJack beantwortet.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat