key press

[Sh4d0w]

hallo!

wie kann man in der Prozedur FormKeyPress, das so machen, dass wenn eine taste gedrückt wurde, dass man die nicht nochmal drücken kann? also bei mir steht jetzt z.B

Delphi-Quellcode:

Buchstabe:=Upcase(Key);
EdBuchstabe.Text:=Buchstabe;

Wenn man jetzt eine taste drückt ist sie im editfeld, wenn man die gleiche taste nochmal drückt sieht man zwar keine veränderung, aber sie wird auch "gesendet", kann man das verhindern? also ein befehl, dass man jeden buchstaben von A-Z nur einmal drücken kann???

mfg,
Sh4d0w

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

[Sh4d0w]

geht nicht, jetzt sendet er gar nix! geht das nicht anders?

[Hansa]

Überlege Dir die logische Aufgabe : irgendwo muß gespeichert werden, ob eine Taste gedrückt wurde. Ist das der Fall, dann muß es eben markiert werden. Als erstes fällt mir dazu folgendes ein : ARRAY. Zweidimensional, nämlich der Tastenwert und ein boolscher Wert "gedrueckt" J/N. 8)

[Sh4d0w]

ich hab erst seit kurzem angefangen, kannst du das vllt. näher erklären mit dem array??