DBGrid Spaltenköpfe ändern?

[Borschti]

Hi,

wie der Threadname schon sagt suche ich eine Möglichkeit die Spaltenköpfe meines DBGrid zu verändern, das soll natürlich passieren nachdem ich ich meine SQL Statement ausgeführt habe, also zur Laufzeit.

Ich benutze von den ADS Komponenten abgeleitete Komponenten, aber ich denke mal das es in der der hinsicht keinen Unterschied machen wird.

Ich hoffe mir kann jemand helfen, schonmal danke

mfg
Alex

[sx2008]

Im Eventhandler AfterOpen können die Feldlabels geändert werden:

Delphi-Quellcode:

procedure SetFieldCaption(dataset:TDataset; const FieldName, Label:string);
var
  f : TField;
begin
  Assert(Assigned(dataset));
  f := dataset.FindField(FieldName);
  if Assigned(f) then f.DisplayLabel := Label;
end;

procedure TForm1.Query1AfterOpen(...);
begin
  SetFieldCaption('BetrNetto', 'Nettobetrag (Eur)');
end

[nahpets]

Hallo,

andere Alternative wäre
DBGrid1.Columns.Items[0].Title := 'Spalte A'; Hiermit bekommst Du den Inhalt der ersten Zeile des Datasets als Spaltenüberschrift.

Delphi-Quellcode:

procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
Var
         i : Integer;
begin
  DataSet.First;
  for i := 0 to DBGrid1.Columns.Count - 1 do begin
    DBGrid1.Columns.Items[i].Title := DBGrid1.Columns.Items[i].Field.AsString;
  end;
end;

[Borschti]

Zitat von sx2008:

Im Eventhandler AfterOpen können die Feldlabels geändert werden:

Delphi-Quellcode:

procedure SetFieldCaption(dataset:TDataset; const FieldName, Label:string);
var
  f : TField;
begin
  Assert(Assigned(dataset));
  f := dataset.FindField(FieldName);
  if Assigned(f) then f.DisplayLabel := Label;
end;

procedure TForm1.Query1AfterOpen(...);
begin
  SetFieldCaption('BetrNetto', 'Nettobetrag (Eur)');
end

Danke hat auf anhieb geklappt, danke auch an die restlichen Antworten.

mfg
Alex

[aurikel_Max]

Zitat von nahpets:

Hallo,

andere Alternative wäre
DBGrid1.Columns.Items[0].Title := 'Spalte A';

Hallo,

ich hoffe, das stellt kein Problem dar, dass ich den Thread nochmal "ausgrabe", wenn doch, bitte nicht steinigen.

Ich möchte, wie der Threadstarter, bei einem DBGrid die "Überschrift" einer Spalte bearbeiten, dafür hab ich folgendes, nach dem Zitat von nahpets, versucht:

dbgBlubb.Columns.Items[2].Title := 'Blubbah'; Dafür bekomm ich die folgende Fehlermeldung beim Kompilieren:

Zitat:

Incompatible types: 'TColumnTitle' and 'string'

Mir ist schon klar, was die Fehlermeldung aussagt, aber ich weiß nicht wirklich, wie ich die Anweisung ändern muss, damit der Fehler nicht mehr auftritt.

Liebe Grüße (und bitte nicht steinigen)

[DeddyH]

dbgBlubb.Columns.Items[2].Title.Caption := 'Blubbah';

[aurikel_Max]

Zitat von DeddyH:

dbgBlubb.Columns.Items[2].Title.Caption := 'Blubbah';

Du hast Recht, danke.

Warum bin ich heute nachmittag, als ich mich damit beschäftigt habe, nicht selbst darauf gekommen? Brett vor dem Kopf ..

Liebe Grüße