Auf Pfeiltasten reagieren

[a.def]

Zitat:

Zitat von himitsu (Beitrag 1359307)

Und wenn jemand das mit KeyPreview immer wieder überliest, dann kann man auch nicht viel helfen.

Wie meinst du das?

[himitsu]

Hatte mein Edit vergessen abzusenden, nachdem ich den ersten Satz schon zu früh absendete. :oops:

Nja, das hatte er schon oft genug überlesen.
Mal sehn, wie lange es mit dem nicht zugewiesenen Event dauert.

[braucheHilfe]

Zitat:

Zitat von a.def (Beitrag 1359304)

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 :thumb:

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

[Aviator]

Zitat:

Zitat von himitsu (Beitrag 1359309)

Nja, das hatte er schon oft genug überlesen.
Mal sehn, wie lange es mit dem nicht zugewiesenen Event dauert.

Wenn du dir seine Screenshots mal anschauen würdest dann würdest du sehen, dass er das Event zugewiesen hat. Links in der Ereignisliste ist beim OnKeyDown das Event eingetragen. Wo hat er dann also etwas nicht zugewiesen?

[t.roller]

Zitat:

Zitat von a.def (Beitrag 1359311)

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.

http://www.delphipraxis.net/191275-p...es-shapes.html

[TiGü]

...

[Juri11]

Hallo ...
ich möchte mich ebenfalls zum Thema "auf Tasteneingabe reagieren melden".
Ich habe ebenfalls das Problem, dass ich auf cursor- links und rechts in meinem Programm reagieren will.
Durch Versuche habe ich herausgefunden, dass bei keyPreview:=true; nur dann alle Tasteneingaben weiter gegeben werden, wenn in TForm in keinem Objekt der Focus gesetz ist.
Den Focus in TForm für "alle Objekte ausschalten" (ActiveControl:=none; gibt es nicht), weil Windows es nicht zulässt.
Zufälligerweise habe ich festgestellt, dass wenn ich in TForm den focus auf das letzte Objekt in der Reihenfolge setze und die cursor Tasten drücke die cursor Eingaben weiter gegeben werden. Der focus ist aus TForm anschließend von allen Objekten verschwunden. Das Objekt mit dem Focus ist ein TlabeledEdit Objekt.

Grüße Jürgen