简单问题！

Question

我想在数据网格中，将某个记录用红色表示，或用别的颜色表示，以区别别的记录。
请问怎么实现。

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if 此记录满足某条件 then with TDBGrid(Sender) do
  begin
     Canvas.Brush.Color := clRed; //红色
     DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————