怎样给指定的一条记录设置颜色?

Question

用adotable,datasource,dbgrid,先是一个数据库表示，当移动到某条记录时，怎样设置这条记录的颜色？

Answer 1

在DBGrid的DrawColumnCell事件中做你的事情即可
例如：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Table1.FieldByName('分数').AsInteger > 90 then
    DBGrid1.Canvas.Font.Color := clRed
  else
    DBGrid1.Canvas.Font.Color := clBlue;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Answer 2

参考:
首先将DBgrid的DefaultDrawing属性设置为false; 
然后在DBBrid的DrawColumnCell事件中这样做： 
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  if Column.Field.AsInteger < 75 then begin 
     DBGrid1.Canvas.Font.Color := clWhite; 
     DBGrid1.Canvas.Brush.Color := clRed;  //这里设置单元格填充色 
     DBGrid1.Canvas.FillRect(Rect);   //这里对相应的单元格进行北景色填充 
  end; 
  //输出内容 
  DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString); 
end;