TAB Reihenfolge = Verzweiflung ?

[himitsu]

Zitat von Cosamia:

Da passieren dann ganz wilde Dinge.

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 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 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

[Cosamia]

Zitat von himitsu:

Zitat von Cosamia:

Da passieren dann ganz wilde Dinge.

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 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 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.