TabOrder überschreiben

[Urba]

Hallo Leute,

Ich mal wieder. Dieses Mal geht mein Problem um die TabOrder. Es ist an sich ja eine wunderschöne Sache, nur für meine Bedürfnisse nicht ausreichend bzw. fehlerhaft.

Ich würde gerne selbst festlegen welche nach welcher Komponente angefocust wird. Leider reagiert mein Editfeld nicht auf VK_TAB. Auch bei KeyPress und #09 keine Regung. Weiß jemand wie ich dafür sorgen kann dass er darauf reagiert ?

Ein kleines Beispiel wie ich mir das vorstelle :

Edit1 -> Edit3 -> Edit1 -> Edit2

Hat zwar an sich keinen Sinn, aber es soll ja nur als Beispiel dienen. Mir geht es einfach nur um das Prinzip wie ich das lösen könnte.

Würde mich über eine Antwort freuen.

Gruss
Urba

[Brüggendiek]

Hallo Urba!

Normalerweise bekommen die Komponenten die Tabulatorpositionen in der Reihenfolge des Erstellens.

Im OI kannst Du die TabOrder einstellen - beginnend bei 0. Wenn Du eine besetzte Nummer nimmst, rutschen alle anderen Komponenten nach unten.
Also die erste Komponente aktivieren, 0 eintragen. Dan die 2. mit 1 usw. bis alle versorgt sind.

Wenn das dynamisch sein soll (also der Nachfolger ist jeweils vom Inhalt abhängig) mußt Du im OnExit-Ereignis den Focus entsprechend setzen.

Gruß

Dietmar Brüggendiek

[Urba]

klasse danke schön warum kompliziert denken wenn es auch so einfach geht

Gruss
Urba

[Luckie]

Und es geht noch einfacher. Mach mal einen Rechtsklick auf dein Formular mit den Komponenten und dann kuck dir mal den Eintrag "Taborder..." an.

[Urba]

Hallo Luckie,

Normalerweise kenne ich dich als jemand der immer alles genau liest

Mein oben genanntes Beispiel wirst du auf diese Weise nicht hinbekommen

Also ciao
Urba

[Luckie]

Oh, sorry. Ich dachte nur als alternative für die statische Methode von Brüggendiek.

[SirThornberry]

du musst von TEdit ableiten und eine Message abfangen

Delphi-Quellcode:

  TTabEdit = class(TEdit)
  private
    procedure FWMGETDLGCODE(var Msg : TWMGetDlgCode); message wm_GetDlgCode;
  end;
[...]
procedure TTabEdit.FWMGETDLGCODE(var Msg : TWMGetDlgCode);
begin
  inherited;
  Msg.Result := Msg.Result or DLGC_WANTTAB;
end;

Anschließend bekommst du im OnKeyPress etc. auch das Event wenn die Tab-Taste gedrückt wird

[Urba]

hat sich alles schon erledigt, aber wieso soll ich es wie in deinem Vorschlag so kompliziert machen wenn es mit "setFocus" und "onExit" so schön einfach geht ?

[SirThornberry]

Hmm, war zu einfach um das ich auf die Idee gekommen wäre..