Thema: Delphi key press

Einzelnen Beitrag anzeigen

Waldteufel
(Gast)

n/a Beiträge
 
#2

Re: key press

  Alt 18. Dez 2005, 21:18
Hi.

So müsste es gehen.

Delphi-Quellcode:
var
  schonGedrueckt : set of char; // globale Variable!

procedure TForm1.Form1KeyPress(Sender: TObject; Key: char);
begin
  if Key in schonGedrueckt then Exit;

  Include(schonGedrueckt, Key);
  EdBuchstabe.Text:=Upcase(Key);
end;
Wenn du die Menge der schon gedrückten Tasten wieder leeren willst, schreib einfach
 schonGedrueckt := [];
  Mit Zitat antworten Zitat