dbgrid的问题！

Question

DbGrid1.Canvas.Brush.Color:= clred

Answer 1

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (gdSelected in State) or (gdFocused in State) then
    DBGrid1.Canvas.Font.Color := clRed;
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Answer 2

基本上按照楼上的思路，选择一行通常是在这里边加语句
procedure TFrmProducePlan.dbgXDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  dbgX.Canvas.Brush.Color := clRed;
  dbgX.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;