为什么老是没有人回答我的问题呢：又没分了,不爽:-(共同探讨－－怎样设置DBGrid1的某一列的字体颜色？？

Question

怎样设置DBGrid1的某一列的字体颜色（与其他列的字体颜色不同）希望高手能给予赐教。先非常感谢大家的参与!!

Answer 1

在OnDrawColumnCell中写:
if Column.FieldName = 'Your Name' then
  Canvas.Font.Color := clBlue;没有分嘛,可以试一下给斑竹发短消息

Answer 2

to Snakeguo(枫&楠) (莫等闲) :
  　我刚才做个小例子用你的方法，还是不行啊。

Answer 3

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName='NAME' then
begin
DBGrid1.Columns[0].Color:=clCream;
DBGrid1.Font.Color:=clblue;
end;
end;
用后，所有列的字体颜色都变成蓝色了。背景颜色正确

Answer 4

if Column.FieldName = 'NAME' then
  Canvas.Font.Color := clBlue;这么用运行后字体颜色依然是黑的。不知是哪的错？

Answer 5

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName='NAME' then
begin
DBGrid1.Columns[0].Color:=clCream;
DBGrid1.Columns[0].Font.color:=clblue;
end;
end;运行就正确了。