DBGrid Spaltenköpfe ändern?

[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