终于自己搞定了：procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
//列的颜色
if column.ID mod 2 =0 then
column.Color:=clmoneygreen
else
column.Color:=clwhite;
end;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect;
Field: TField;
State: TGridDrawState);
begin
Canvas.Brush.Color:=clred;
end;
另外，各位什么叫‘专家分’？
