Hallo DBman,
ich nehme mal an, daß sich das auf die Anfrage in dem anderen Beitrag bezieht.
Code:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
for i := 0 to DBGrid1.Columns.Count - 1 do begin
if DBGrid1.Columns.Items[i].FieldName = 'Such'
then DBGrid1.Columns.Items[i].Title.Font.Color := clRed;
if Pos('Name', DBGrid1.Columns.Items[i].FieldName) > 0
then DBGrid1.Columns.Items[i].Title.Font.Color := clBlue;
end;
end;
Vielleicht hilft Dir dieser Code weiter. Natürlich mußt Du noch die von mir verwendeten Feldbezeichner durch Deine ersetzen. Und ich würde immer noch ein AnsiLowerCase empfehlen, damit eventuelle Abweichungen in der Groß-Klein-Schreibung keine Fehlerquellen bergen.
mfg
eddy