简单问题！

[blizzard111]

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

[lxpbuaa]

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;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[hongqi162]

up