auf tastendruck reagieren

[Jab]

hilfe steh grad voll aufm schlauch.
Ich möchte nix anderes als das bei Tastendruck eine Message oder sonstwas kommt. Die 69 steht für das "e" auf der Tastatur.. Irgendwie is da der Wurm drin doch ich find den nicht.

Bitte helft mir :S

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
       if (key = 69) then showmessage('klappt! :D');
end;

[Berni68]

Hi,
der Fehler muß wo anders liegen.
Der Quelltext ist in Ordnung und funktioniert bei mir auch.
Drückst du tatsächlich auf e, weil in showmessage heißt es :D

[r2c2]

Hast du KeyPreview auf True gesetzt?

mfg

Christian

[bitsetter]

Hi,
setze doch mal einen Breakpoint in die Procedur ob da überhaupt ein Event ausgelöst wird. Wenn du noch weitere WinControls auf der Form hast, können die auch das Event onKeyDown abfangen. Dein Code funktioniert bei mir ansonsten.

[Jab]

jo fehler gefunden... ich hab 49 statt 69 geschrieben... ich depp ;)

danke allen! :)

[Martin K]

Nur mal ein kleiner Vorschlag von mir:
Für Tastaturabfragen bei Eingabe von Zeichen würde ich OnKeyPress verwenden.
Hier hast Du dann das Zeichen als Char und kannst somit auch nicht ausversehen eine falsche Zahl eingeben :wink:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = 'e' then
    ShowMessage('klappt! :D');
end;

[Bassel]

Ich hab zum Thema Tastendruck eine weiterführende Frage:

Wie ist die Syntax bei mehreren Tasten zB Strg + Alt + f + l??

[r2c2]

Bei strg + Alt musst du einfach ShiftState auswerten. Willst du 2 "normale"(in deinem Fall f + l) Tasten haben, musst du die z.B. in ner private-Variablen zwischenspeichern...

mfg

Christian