TStringGrid — Tabelle

Ein Raster aus Zellen mit Text: feste Kopfzeilen und -spalten, Auswahl, Bildlauf und eigene Zellendarstellung.

Unit: Vega.Grids · Basis: TControl

→ Alle Steuerelemente · Guide: Komponenten

var g: TStringGrid := new TStringGrid();
g.SetBounds(12, 220, 492, 130);
g.SetSize(3, 4);              // Spalten, Zeilen
g.FixedRows := 1;             // erste Zeile ist Kopfzeile
g.GridLines := true;
g.SetColWidth(1, 160);

g.SetCell(0, 0, "Nr");
g.SetCell(1, 0, "Name");
g.SetCell(2, 0, "Wert");
g.SetCell(0, 1, "1");
g.SetCell(1, 1, "Tempo");
g.SetCell(2, 1, "125");

g.OnSelectCell := OnZelle;
g.SetParent(f);

Editable schaltet die Bearbeitung frei, danach genügt Tippen. Gemessen:

g.Editable := true;
g.SetSelection(1, 1);

g.StartEdit(true);                // true = bisherigen Inhalt behalten
Print(IntToStr(g.EditorMode as int64));   // 1
Print(g.EditText());                      // rot
g.SetEditText("blau");
g.EndEdit(true);                          // übernehmen
Print(g.GetCell(1, 1));                   // blau

g.StartEdit(true);
g.SetEditText("verworfen");
g.EndEdit(false);                         // verwerfen
Print(g.GetCell(1, 1));                   // blau

• Kein Kind-TEdit im Gitter. Ein eingehängtes Feld müsste bei jedem Bildlauf mitwandern und nähme dem Gitter den Fokus; für eine einzeilige Zelle reicht ein Puffer, dessen Marke der Zellrender mitzeichnet.
• CanEditCell(col, row) ist überschreibbar — dort entscheidet eine Ableitung, welche Zellen offen sind (so macht es TValueListEditor mit seiner Namensspalte).
• StartEdit und EndEdit sind ebenfalls virtuell, damit eine Ableitung beim Bestätigen prüfen und zurücknehmen kann.
• OnSetEditText meldet jede Änderung im Puffer. Bis heute war das Feld wirkungslos — es wurde nie gerufen; mit der Zellbearbeitung feuert es.

g.InsertRow(1);      // schiebt ab Zeile 1 nach unten, RowCount + 1
g.DeleteRow(1);      // entfernt Zeile 1, RowCount - 1

Beides rechnet die Zellinhalte mit um; die feste Kopfzeile bleibt, wo sie ist.

• FixedRows/FixedCols zählen mit. Bei einer Kopfzeile ist die erste Datenzeile 1, nicht 0 — feste Zeilen bleiben beim Bildlauf stehen.
• SetSize(cols, rows) legt die Größe fest; SetCell jenseits davon geht ins Leere.
• Ein Zellenwechsel lässt sich abbrechen: Im OnSelectingCell-Handler CancelSelect := true setzen — der übliche Weg, um eine ungültige Eingabe festzuhalten.
• OnDrawCell übernimmt die Darstellung einer Zelle; DrawCol, DrawRow und DrawRect sagen dabei, welche Zelle gerade dran ist.
• RowSelect schaltet von Zellen- auf Zeilenauswahl, KeyNavigation erlaubt das Wandern mit den Pfeiltasten.
• Für Name-Wert-Paare gibt es die fertige Ableitung TValueListEditor.

Alle Eigenschaften, auch die geerbten.

Alle Methoden, auch die geerbten.

Letzte Aktualisierung: 2026-08-19 — API maschinell aus Vega/Grids.lyx erhoben, Beispiel mit lyxc 1.1.3I übersetzt.