TabOrder dynamisch...

[himitsu]

Im OnKeyDown von E1, E3 und E5 beim TAB ein SetFocus auf F6 und merken, von wem es kam.
Und im OnKeyDown auf TAB reagieren und SetFocus entsprechend dem gespeichertem Vorgänger.


Natürlich könnte man auch im OnEnter von E1/E3/E5 schauen die Taborder umschreiben.
(E6 an die entsprechende Stelle verschieben, also zwischen E1-E7, E3-E8, E5-E9 usw, .... bzw. E6.TabOrder:=TEdit(Sender).TabOrder+1 )

[Uwe Raabe]

Nur so ne Idee: Du könntest im Form das GetTabOrderList überschreiben. Erst rufst du inherited auf und erhältst die aktuelle Reihenfolge der WinControls, die du aber dann noch beliebig verändern kannst. Du wirst dir irgendwie das letzte Control merken müssen, um das nächste korrekt in der Liste zu platzieren. Womöglich reicht nicht mal nur das letzte wenn es auch Fälle geben kann, wo z.B. zwei dieser E6-Kandidaten untereinander stehen.

Denke daran, dass man mit Shift-TAB auch den korrekten Rückweg nimmt.

[BigAl]

Beides gute Ideen. Das mit GetTabOrderList überschreiben muss ich mir mal genauer anschauen. Mir schwebt da grad so 'ne Idee im Kopf rum mit mehreren Tab-Listen (sind maximal drei). Je nach Zustand könnte ich dann die entsprechende aktivieren.

Ich denke das könnte die Lösung sein .

Danke!

[BerndS]

Würde es nicht auch reichen, zur Laufzeit im OnEnter Event Tabstop entsprechend zu setzen und TabOrder zu lassen. Dabei könnte ein Event für alle Edits gesetzt werden und anhand der Taborder des gerade akuellen Edits bei den anderen TabStop gesetzt werden.
hier mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.e1Enter(Sender: TObject);
  function EditColumn(AEdit: TEdit): Integer;
  begin
    case AEdit.TabOrder of
      0, 1, 7:
       Result := 0;
      2, 3, 8:
       Result := 1;
      4, 5, 9:
       Result := 2;
      else
        Result := -1;
    end;
  end;
var
  I, Col: Integer;
  WC: TControl;
  E: TEdit;
begin
  if Sender is TEdit then
  begin
    Col := EditColumn(TEdit(Sender));
    for I := 0 to TEdit(Sender).Parent.ControlCount - 1 do
    begin
      WC := TEdit(Sender).Parent.Controls[I];
      if WC is TEdit then
      begin
        E := TEdit(WC);
        E.TabStop := (E = E6) or (EditColumn(E) = Col);
        if E.TabStop then
          E.Color := clInfoBk
        else
          E.ParentColor :=  True;
      end;
    end;
  end;
end;

Zur Verdeutlichung habe ich auch die Farbe gesetzt. Das ist aber nur gemacht, um im Beispiel zu sehen, ob es auch klappt.

[KodeZwerg]

Wenn es total dynamisch sein soll, würde ich mir das Tags property zu nutze machen.
Tags entsprechend Priorität fortlaufend vergeben, angenommen es wird ein "Hauptsprungziel" erschaffen, dann ab in eine 1000er Zählung, untergeordnete in eine 2000er usw.
Nun beim KeyDown event das aktuelle Tag auslesen und entsprechend dessen Inhalt das vorige/nächste Tag finden und fokussieren.