Auf Pfeiltasten reagieren

[nahpets]

Hast Du KeyPreview vom Formular im Objektinspektor auf True gesetzt?

[braucheHilfe]

Zitat von nahpets:

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?

[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;

[braucheHilfe]

Zitat von 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;

Vielen dank, diese Variante funktioniert

[a.def]

Vor wenigen Wochen gab es doch schon einmal so ein Thema hier mit genau demselben Problem.
Dabei ging es darum Shapes per Tastendruck zu verschieben. Leider finde ich das Thema nicht wieder.

KeyUp hat nämlich einen Nachteil... beim gedrückt-halten der Taste passiert bei dir nichts wenn du KeyUp verwendet. Denn es wird ja erst ausgelöst wenn der Key... losgelassen wird.

[nahpets]

Ändere mal bitte die Routine FormKeyDown und füge am Anfang ein 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.