Columns bei TDBGrid selber erstellen

[eddy]

Hallo ahachmann,

nachfolgender Quelltext sollte die meisten Deine Wünsche erfüllen:

Code:

procedure TFTermin.SpeedButton3Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to dbg1.Columns.Count - 1 do begin
    // Auswertung der DBGrid-Spalten in Abhängigkeit vom Feldnamen der Tabelle
    // hier wird nur die Spalte mit dem Namen "Datum" geändert
    if lowercase(dbg1.Columns.Items[i].Title.Caption) = 'datum' then begin
      dbg1.Columns.Items[i].Title.Caption := 'Termin';
      dbg1.Columns.Items[i].Title.Color := clYellow;

      dbg1.Columns.Items[i].Title.Font.Style := dbg1.Columns.Items[i].Title.Font.Style + [fsBold];
      dbg1.Columns.Items[i].Title.Font.Color := clBlue;
      dbg1.Columns.Items[i].Title.Font.Size := 14;
      dbg1.Columns.Items[i].Title.Font.Name := 'Arial';
    end;
 end;
end;

mfg
eddy