StringGrid verliert Object bei goColMoving

[bogdan]

Ich verstehe den Zusammenhang nicht Zwischen Row und Col wieso das folgende Problem auftaucht:

Delphi-Quellcode:

xGrid.Cols := 7; // also 0 bis 6
xGrid.FixedRows := 1;
xGrid.FiexdCols := 0;

In eine StringGrid (xGrid) Komponente werden Daten (ca. 40 Datensätze mit ID-Nr) aus einer Query Komponente geschrieben. Und ein Integer Object (Datensatz IDNr) der Rows zugewiesen:
xGrid.Rows[i].Objects[i] := TObject(xQuery.Fields[j].AsInteger); Es gibt keinen Datensatz-Wert der bei 0 liegt.
Beim xGrid.OnClick Event wird der Integer-Wert des Objektes der angeklickten Row auch richtig angezeigt.

folgendes Problem habe ich aber beim verschieben der Columnen:
FromIndex=0 ToIndex=1, dann bekomme ich bei Row[1] den IntegerWert 0.
FromIndex=0 ToIndex=2, dann bekomme ich bei Row[1] und Row[2] den IntegerWert 0.
FromIndex=0 ToIndex=3, dann bekomme ich bei Row[1], Row[2] und Row[3] auch wieder den IntegerWert 0.
usw.

Verschiebe ich die Columne wieder an Ihre alte Position sind die Integer Werte wieder richtig.

Ich verstehe nicht wieso der Integer Wert des Row-Objektes nach dem verschieben der Cols nicht richtig angezeigt wird?

[bcvs]

Zitat von bogdan:

. Und ein Integer Object (Datensatz IDNr) der Rows zugewiesen:
xGrid.Rows[i].Objects[i] := TObject(xQuery.Fields[j].AsInteger);

Damit verwendest du die Eigenschaft Objects der Rows-Eigenschaft, die eine StringList für die Zellen der Row verwaltet. Dein Object wird also an die Col i gebunden.

Sollte das nicht besser heißen:
xGrid.Objects[0, i] := TObject(xQuery.Fields[j].AsInteger);
Damit wird das Object an die Col 0 der Row i und damit eingeutig an die Zeile gebunden.