key press

[Waldteufel]

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 := [];