Focus Setzten zwischen Edit und Checkbox

[ColdFire]

Hy Leute!

Solch ein Problem hatte ich noch nie.
Habe ein Formular worin ich 2 Groupboxen habe in der ersten groupbox befindet sich ein editfeld und in der 2ten groupbox 2 checkboxen.

Nun zum Problem:

Ich will eigentlich nur den focus wechseln können bzw die tabfolge.
Editfeld --> Enter --> focus auf 1te Checkbox --> vk_up --> editfeld focus.

Warum funktioniert der VK_Up key nicht ?
Gibts da eine ander Lösung ?

mfg CF

[scrat1979]

Hallo!!!

1. Die Tabulatorreihenfolge kann man in der IDE ich glaube im Menüpunkt BEARBEITEN einstellen

2. Um einer Komponente den Focus zu geben kann man den Befehl komponentexy.setfocus nehmen. Vielleicht hilft Dir das ja weiter.

Ich habe hier mal 2 Editfelder erzeugt und beim Drücken der Pfeil-nach-oben-Taste erhält das nächste Edit-Feld (edit2) den Fokus - bei mir funktioniert es so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  IF Key = VK_UP Then edit2.SetFocus;
end;

Grüsse,

SCRaT

[ColdFire]

Tabreihenfolgen sind korrekt mit tab gehts ja
nur möchte ich mit den Pfeiltasten das auch handhaben.

Delphi-Quellcode:

  procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
                                 Shift: TShiftState);
    begin
      if key = vk_Return then
        CheckBox1.SetFocus;
    end;

  procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word;
                                     Shift: TShiftState);
    begin
      if key = vk_up then
        Edit1.SetFocus; 
    end;

so gehts aber nicht !

[scrat1979]

Habe dir oben nochmal einen code eingefügt.

Also so funktioniert es bei mir einwandfrei :gruebel:

Delphi-Quellcode:

procedure TForm1.CheckBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF Key = VK_UP Then Edit2.SetFocus;
end;

BTW, im OnKeyDown-Ereignis geht es bei mir auch...
Ebenso funktioniert bei mir "if key = vk_return" im Edit-Feld und zwar nach genau DEINEM Code, merkwürdig!?! :wall:



SCRaT

[ColdFire]

hast dus auch in 2 groupboxen ? pro element eine groupbox ?!

Kleines BSP @ Anhang wo vk up nicht geht

BTW: keyUp ist nicht da was ich will KeyDOWN is es :)

[scrat1979]

Ja, habe ich. Funktioniert einwandfrei. :gruebel:

[ColdFire]

Aber nicht mit KEY DOWN !

[ColdFire]

Push ^^

[mkinzler]

Oder sorge in den Komponenten, die in der Tabreihenfolge danach kommen dafür, daß die richtigen den Fokus erhalten.

[ColdFire]

Die Tabreihenfolge stimmt siehe Beispielprogramm!

[marabu]

Hallo,

ich fürchte du hast eine falsche Erwartungshaltung. Mit den Cursor-Tasten wechselst du den Fokus nur innerhalb desselben Parent - im Gegensatz zur Tab-Taste. Auch wenn du das Verhalten mit eigenem Code ändern könntest, solltest du das nicht tun, da ein kundiger Benutzer deines Programmes es so erwartet. Eine Alternative für dich könnte vielleicht der Einsatz von TBevel anstelle TGroupBox sein.

Grüße vom marabu