TDBGrid Spaltenbreite und Header anpassen

[Alfred]

Code: Alles auswählen

DBGrid1.Columns[1].Width := 15;

erhalte ich folgende Fehlermeldung: List index(1) out of bounds.

Was muss ich da noch einstellen?

Wo kann ich denn die Spaltenköpfe erfassen.

Gruß
Alfred

[Christian]

Die Meldung sagt dir einfach das es keine Column 1 gibt. Also leg doch erstmal eine an bevor du versuchst ihre Breite zu ändern.

[Alfred]

Hallo Christian,

Code: Alles auswählen

DBGrid1.Columns.Add;
DbGrid1.Columns[0].Title.Caption := 'Header1';
DbGrid1.Columns[0].Width := 100;
DBGrid1.Columns.Add;
DbGrid1.Columns[1].Title.Caption := 'Header2';
DbGrid1.Columns[1].Width := 200;

funktioniert.

Was ich nicht schaffe ist die Zuweisung eines Datenbankfeldes Feldes zu der Spalte.

z.B. DBGrid1.Columns[0].FieldName := 'name';

wird abgelehnt.

Gruß
Alfred

[Christian]

leg doch die Columns zur Designzeit an, da kannst dann auch den feldnamen auswählen.
FieldName sollte aber funktionieren, was heißt abgelehnt ? Kannst du mal bitte die Fehlermeldung mit angeben ? Ich tippe mal drauf das kein DataSource zugewiesen ist zu diesem Zeitpunkt.

[Alfred]

Hallo Christian,

ich habe:

Form1
DBGrid1
MySQL50Connection1
SQLTransaction1
SQLQuery1
Datasource1

Ich habe bislang mit einem Button die Verbindung zur Datenbank aufgebaut, bis ich festgestellt habe, das SQLQuery1.Active := true alles erledigt, wenn ich in die anderen Komponenten alles richtig eintrage.

Nur wo trage ich dann zur Designzeit die Columns.add und Columns[0].width ein?

Gruß
Alfred

[Alfred]

Hallo Christian,

ich habe es gefunden:

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);

Kann man zum Beispiel: ' 80992' Links ausrichten? Das Feld ist ein decimal(10,0).

Gruß
Alfred

[Christian]

Im Objektinspektor kannst du zur Designzeit Columns hinzufügen.