TAB Reihenfolge = Verzweiflung ?

[Cosamia]

Hallo Zusammen,

ich habe ein kleines Problem mit der TAB Reihenfolge bei in Laufzeit erzeugten EDIT Boxen.
Ich plaziere mit Angabe von Reihe und Spalte Panels in einem Stringgrid. Auf diese Panels werden dann eine EditBox und ein Paar SpinButtons gesetzt.
Jetzt hüpft aber der Cusor bei TAB aber wie Wild hin und her, und hält sich nicht an die vorgegebene Reihenfolge.

Ich denke in habe mit dem Parent etwas falsch gemacht. Oder sieht jemand noch einen anderen Fehler?

Danke und Gruss.

Delphi-Quellcode:

     {Panel malen}
      NewPanel := TJvPanel.Create(self);
      with NewPanel do begin
        BoundsRect := AlignGrid.CellRect(myxdata[n].row,myxdata[n].col);
        Width := intPanelWidth;
        Height := intPanelHeight;
        Parent := AlignGrid;
        ParentBackground := true;
        FlatBorder := true;
        Tabs := strtoint(inttostr(myxdata[n].col*10)+inttostr(myxdata[n].row*10)) ;
        TabOrder := tabs;
        MyControls.add(NewPanel);
      end;

     {Edit malen}
      NewEdit := TEdit.Create(NewPanel);
      with NewEdit do begin
        Top     := EDITYPOS;
        left    := EDITxPOS;
        Width   := EDITWidth;
        Height  := EDITHeight;
        Parent  := NewPanel;
        ActiveColor := $00FEEFDD;
        showhint := true;
        roundit := mydata[n].step;
        doformatValue := true;
        Editlabel.Caption := myxdata[n].caption;
        midpoint := calcmidpoint(minvalue,maxvalue,roundit);
        text    := '';
        OnOutOfRange := MyOutOfRange;
        Dbid := mydata[n].id;
        MyControls.add(NewEdit);
      end;

[himitsu]

Deine Berechnung stimmt nicht.

PS: Wenn du die Panels in der Reihenfolge erstellst, in welcher sie sichtbar sind, dann stimmt die Tabreihenfolge doch schon.

[Cosamia]

Das Problem ist, dass sich die Reihenfolge immer ändert. Die Felder werden dynamisch erzeugt, und eine Vorsortierung ist nicht möglich.

Was stimmt an der Berechnung nicht?

Danke.

[himitsu]

Delphi-Quellcode:

strtoint(
  inttostr(myxdata[n].col * 10)
  +
  inttostr(myxdata[n].row * 10)
)

Ich denke mal, da ist ein *10 zuviel. :angel2:


PS:
0 <= TabOrder < Parant.ControlCount
Und wenn an der Position schon ein anderes Control liegt, dann wird das TabOrder dieses alle anderen nachfolgenden Controls verschoben.

[gammatester]

Und warum überhaupt dieser irrwitzige Weg über StrToInt(IntToStr+IntToStr) und nicht gleich col*10+row oder row*10+col?

[Cosamia]

Zitat:

Zitat von gammatester

Und warum überhaupt dieser irrwitzige Weg über StrToInt(IntToStr+IntToStr) und nicht gleich col*10+row oder row*10+col?

Weil mir nichts besseres eingefallen ist.

ROW = 0
COL = 1

TABSTEP = 100;

So sollte eine "sinnvolle" Reihenfolge erezugt werden.

Die Felder werden in unsortierter Reihenfolge erzeugt, der TAB Sprung soll aber Reihen oder Spaltenweiße ablaufen. So kamm ich die irrwitzige Idee.

[himitsu]

TabOrder kann mit solchen Werten aber nicht umgehen.

TabOrder ist der Index in einer Tab-Verwaltungliste des Eltern-Controls.


Und ganz so eindeutig wäre dieses auch nicht unbedingt gewesen.
101 1 = 101010
1 101 = 101010

[Cosamia]

Zitat:

Zitat von himitsu

TabOrder kann mit solchen Werten aber nicht umgehen.

TabOrder ist der Index in einer Tab-Verwaltungliste des Eltern-Controls.


Und ganz so eindeutig wäre dieses auch nicht unbedingt gewesen.
101 1 = 101010
1 101 = 101010

Ja, da hast du recht.

Auf dem StringGrid gibt ausser den dynamsich erzeugten keine weiteren Controlls. Daher sollte der Index auf 1 stehen.

Gibt es denn eine Möglichkeit das Grid Spaltenweisen zu durchlaufen, und abzufragen ob sich darauf ein EDIT Controll befindet?

[DeddyH]

Ich kann mich irren, aber wie wäre es denn mit Row * ColCount + Col + 1?

[Cosamia]

Zitat:

Zitat von DeddyH

Ich kann mich irren, aber wie wäre es denn mit Row * ColCount + Col + 1?

Da passieren dann ganz wilde Dinge. :gruebel:

[himitsu]

Zitat:

Zitat von Cosamia

Da passieren dann ganz wilde Dinge. :gruebel:

vergiß nicht, daß auf der Form noch andere Controls liegen, welche ebenfalls in dieser TabOrder drinstecken und wenn nicht alle Zellen mit Panels versehen sind, dann kann das eh nichts werden.

Wie gesagt

Zitat:

0 <= TabOrder < Parant.ControlCount

Zitat:

Delphi-Quellcode:

procedure TWinControl.UpdateTabOrder(Value: TTabOrder);
begin
  ...
  if Value < 0 then Value := 0;
  if Value >= Count then Value := Count - 1;

Zitat:

Zitat von Cosamia

Gibt es denn eine Möglichkeit das Grid Spaltenweisen zu durchlaufen, und abzufragen ob sich darauf ...

Nein, da diese Panels ja nicht an das StringGrid und schon garnicht an eine Zelle gebunden sind.

Zu könntest die Panels in MyControls sortieren
- Anhand ihrer aufsteigenden Position (Panel.Top * 10000 + Panel.Left)

Und dann den Panels über diese sortierte List von vorne nach hinten eine aufsteigende TabOrder verpassen.

Oder bessernoch du gehst diese Liste dann rückwärts durch und gibst allen Panels nacheinander StringGrid.TabOrder+1 als TabOrder ... dann sind sie alle sortiert und kommen direkt nach dem StringGrid.

[Aphton]

Zitat:

Zitat von himitsu

TabOrder kann mit solchen Werten aber nicht umgehen.

TabOrder ist der Index in einer Tab-Verwaltungliste des Eltern-Controls.


Und ganz so eindeutig wäre dieses auch nicht unbedingt gewesen.
101 1 = 101010
1 101 = 101010

Ich versteh zwar nicht ganz genau, was damit gemeint ist - evt. ist es dasselbe,
aber trotzdem will ich eines mal klarstellen:

Code:

strtoint(
  inttostr(myxdata[n].col * 10)
  +
  inttostr(myxdata[n].row * 10)
)

Wenn du hier beispielsweise Werte einsetzt - zb Row = 10, Col = 5 - dann erhälts du natürlich etwas Komisches:

Code:

strtoint(
  inttostr(5 * 10)
  +
  inttostr(10 * 10)
)
-->
strtoint(
  '50' 
  + 
  '100'
)
-->
strtoint( '50100' );

Wie wärs denn folgendes auszuprobieren:

Code:

myxdata[n].row * 10
+
myxdata[n].col

Achtung -> dieser Code dürfte nur dann funktionieren, wenn die Anzahl der Cols in einer Zeile = 10 ist. Besser wäre es, den Faktor 10 mit dieser Variable zu ersetzen (ColCount?)

MfG

[DeddyH]

Das entspricht fast meinem Vorschlag, nur hab ich noch 1 aufaddiert.

[Aphton]

Joa stimmt :P

[Cosamia]

Zitat:

Zitat von himitsu

Zitat:

Zitat von Cosamia

Da passieren dann ganz wilde Dinge. :gruebel:

vergiß nicht, daß auf der Form noch andere Controls liegen, welche ebenfalls in dieser TabOrder drinstecken und wenn nicht alle Zellen mit Panels versehen sind, dann kann das eh nichts werden.

Wie gesagt

Zitat:

0 <= TabOrder < Parant.ControlCount

Zitat:

Delphi-Quellcode:

procedure TWinControl.UpdateTabOrder(Value: TTabOrder);
begin
  ...
  if Value < 0 then Value := 0;
  if Value >= Count then Value := Count - 1;

Zitat:

Zitat von Cosamia

Gibt es denn eine Möglichkeit das Grid Spaltenweisen zu durchlaufen, und abzufragen ob sich darauf ...

Nein, da diese Panels ja nicht an das StringGrid und schon garnicht an eine Zelle gebunden sind.

Zu könntest die Panels in MyControls sortieren
- Anhand ihrer aufsteigenden Position (Panel.Top * 10000 + Panel.Left)

Und dann den Panels über diese sortierte List von vorne nach hinten eine aufsteigende TabOrder verpassen.

Oder bessernoch du gehst diese Liste dann rückwärts durch und gibst allen Panels nacheinander StringGrid.TabOrder+1 als TabOrder ... dann sind sie alle sortiert und kommen direkt nach dem StringGrid.

Danke euch allen für eure Hilfe.

Ich habe jetzt ein Paar neu Lösungsansätze und werde meine Glück versuchen.

[himitsu]

Zitat:

Zitat von Aphton

Ich versteh zwar nicht ganz genau, was damit gemeint ist - evt. ist es dasselbe,

Es war nur ein sehr einfaches Beispiel, daß es so keine eindeutigen Werte ergeben könnte.

row=102 col=3 > 102030
row=1 col=203 > 102030


Aber, wie gesagt:
Derartige Berechnungen bringen nicht viel, da sie quasi ungültige/fehlerhafte Werte errechnen.