Button beim drücken der ENTER-Taste ausführen

[Luckner]

Hallo,

versuche seit geraumer Zeit eine Sprung von einem Button auf einen weiter zu Programmieren. Es klappt einfach nicht. Die Standartfunktionen sind aktive unf funktionieren auch. D.H. mit Tab einen Focus auf den nächsten Button. Meine Routine soll jedoch mit der Return-Taste auf den nächsten Button springen und auslösen.

Bsp.:

Delphi-Quellcode:

procedure TFrameArtikel.JvHTButtonAufRolleKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then JvHTButtonLeporelloClick(nil);
end;

Hierbei tut sich nichts.

Danke, Luckner

[himitsu]

Zitat:

passiert nichts

Was sagt der Debugger?



Verwende besser OnKeyDown und wenn du das Ereignis verarbeitest, dann solltest du danach das Key auf 0 setzen, um den nachfolgenden events bescheidzugeben, daß die nichts mehr machen sollen.

PS: VK_RETURN


Und JvHTButtonAufRolle besitzt auch den Fokus?

[Luckner]

Habe ich gerade ausprobiert.

procedure TFrameArtikel.JvHTButtonAufRolleKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key = VK_RETURN Then JvHTButtonLeporelloClick(nil);
key := 0;
end;

Keine Änderung. Mit der Tab-Taste springt der Focus von Button zum Button. Mit der Return-Taste wird auch OnClick ausgeführt. Als ob es irgendwo eine Standardeinstellung für die Buttons wäre.

[baumina]

Versuchs mal mit

Delphi-Quellcode:

JvHTButtonLeporello.Click;

statt nur das OnClickevent aufzurufen.

[DeddyH]

Ist es ja auch. Einen aktiven Button kannst Du mit der Leertaste oder mit Enter auslösen. Außerdem gibt es da noch die Default-Eigenschaft, die auch mit der Enter-Taste zu tun hat. Von daher ist Dein ganzes Vorhaben nicht ganz glücklich.

[baumina]

Achso, setze im OnClickEvent als erstes den Fokus auf den Button.

EDIT : Weil Button klicken nicht automatisch Button fokussieren ist.

[Jumpy]

Zitat:

Zitat von DeddyH (Beitrag 1258156)

Ist es ja auch. Einen aktiven Button kannst Du mit der Leertaste oder mit Enter auslösen. Außerdem gibt es da noch die Default-Eigenschaft, die auch mit der Enter-Taste zu tun hat. Von daher ist Dein ganzes Vorhaben nicht ganz glücklich.

Ich finde das auch unintuitiv. Ist der Fokus auf Button A und ich drücke die Enter-Taste, dann möchte ich auch, dass das entsprechende Ereignis von A ausgelöst wird. Das danach zusätzlich der Fokus auf Button B gesetzt wird kann man ja machen.
Aber hier klingt das jetzt so, als solle Ereignis A nicht ausgelöst werden, dafür Ereignis B direkt (denn das schein mir bei BClick(nil) alias JvHTButtonLeporelloClick(nil) die Intention zu sein)???

[Luckner]

Habe ich jetzt auch die Buttons focusiert, leider keine Änderung.
Problem ist, dass der Kunde von Button zu Button mit der Return-Taste springen möchte (er ist kein Maus-Fan). Beim Klick auf diese Buttons (mit der Maus funktioniert es ja) erscheinen spezifische Editfelder. Dann mit der Leer-Taste würde er auf ein entsprechendes Feld springen. Und das Funktioniert wieder gut mit if key = #35 then Editfel1.setfocus.
Könnte man nicht auf die reaktion vom Druck auf die Return-Taste die Tab-Taste simulieren?

[chess]

Keine Ahnung ob dir das hilft:
http://www.youtube.com/watch?v=tHVLJL6lI40

[baumina]

Du wirst dich wohl von Buttons verabschieden müssen, denn für die Buttons heißt ENTER oder Leertaste drücken = klicke mich.