Index an jede Zeile anhängen ... unsichtbar

[[TP]Hawk274]

Für jede Zeile in einem StringGrid möchte ich gerne den index (dieser wird von mir vergeben!) noch mit an jede Zeile speichern, allerdings soll dieser für den Benutzer nicht sichtbar sein. Wollte nun eine unsichtbare Spalte erstellen. Aber diese hat nicht funktioniert. Gibt es vielleicht eine andere Möglichkeit?

[BrainCode]

Speicher doch die Indicies in einem eindimensionalen Array!

[Christian Seehase]

Moin Hawk,

für eine unsichtbare Spalte in einem StringGrind müsstest Du nur die Eigenschaft ColWidths für die jeweilige Spalte auf 0 setzen.

Für Deinen Zweck dürfte die Eigenschaft Objects aber besser geeignet sein. Du müsstest halt dem Compiler nur klarmachen, wie er den Index in Objects eintragen soll:

Delphi-Quellcode:

StringGrid1.Objects[1,1] := TObject(1);

Das wäre dann so ähnlich wie AddObjects bei TStrings und deren Ableitungen (ausser bei RichEdit/Memo.Lines, da hat das keine Wirkung).

[roderich]

Du kannst es auch so recht einfach lösen:
Hänge den Index an jede Zeile dran, formatiert auf z.B. 3 Stellen.
Setze property DefaultDrawing des StringGrid auf false.
In Event OnDrawCell des StringGrid schneidest Du die letzten 3 Stellen einer jeden Zelle (den Index) ab und gibst nur den Rest aus.

Gruß
Roderich