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