Auf Pfeiltasten reagieren

[nahpets]

Hast Du KeyPreview vom Formular im Objektinspektor auf True gesetzt?

[a.def]

Ich glaube eher er hat alles blind abgeschrieben und hat nun tote, nicht funktionierende Fake-Events in seinem Code.

[braucheHilfe]

Zitat:

Zitat von nahpets (Beitrag 1359295)

Hast Du KeyPreview vom Formular im Objektinspektor auf True gesetzt?

Also wenn das nicht automatisch auf True steht, dann nein.
Wo kann ich das ändern?

[juergen]

Ich denke auch dass die OnKeyDown-Zuweisung fehlt.
Einfach "Form1" markieren, dann im Objektinspektor unter dem Reiter "Ereignisse" einen beherzten Doppelklick in die leere Zeile bei "OnKeyDown". Dann sollte das Event zugewiesen sein.
"KeyPreview" muss auch auf True stehen.

[nahpets]

Wenn Du es nicht im Objektinsteptor ändern willst, dann musst Du das irgendwo im Quelltext machen. Geeignet wäre da wohl das FormCreate.

Sinnvollerweise solltest Du aber im Objektinspektor den Vorgabewert False auf True ändern.

[braucheHilfe]

Ich habe die KeyPreview jetzt auf True gesetzt und jetzt sieht der Code so aus:
Es tut sich aber trotzdem nichts wenn ich die Taste drücke :(

[a.def]

Nimm das KeyUp-Event und nicht das KeyDown:

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = Ord(VK_UP) then
  begin
   Key := 0;
   ShowMessage('Hi');
  end;
end;

[nahpets]

Ändere mal bitte die Routine FormKeyDown und füge am Anfang ein

Delphi-Quellcode:

ShowMessage(IntToStr(key));

ein. Was wird beim Betätigen welcher Taste ausgegeben?
Wird die Meldung überhaupt angezeigt?
Kannst Du mal mit dem Debugger prüfen, ob die Routine überhaupt aufgerufen wird?

[a.def]

Ich glaube KeyDown wird nie aufgerufen wenn irgendein anderes Control außer dem Formular den Focus hat.
Habe es eben schnell getestet und so gesehen, dass man besser KeyUp nimmt statt KeyDown.

[himitsu]

Und wenn jemand das mit KeyPreview immer wieder überliest, dann kann man auch nicht viel helfen.
Aber vorallem wurde ständig das mit dem zugewiesenen Event vergessen. :zwinker: