单元格着色

[zhongjinting]

我知道在VB里面的HFlexGrid控件可以对任何单元格着色，DELPHI的DBGrid可以做到这一点吗？如果可以，怎么做？
谢谢

[qwprince]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin //例如
if Field.Name='价格' then
begin
if Field.AsInteger>500 then
dbgrid1.Canvas.Brush.Color:=clred
else
dbgrid1.Canvas.Brush.Color:=clGreen;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

[活力华华哥]

我知道的是每行每列可以控制颜色，具体到每个单元格还没试过。
每列：可在双击dbgrid，添加显示列，选中一列，从　color属性改颜色
每行：
　　procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
if adotable1.fieldbyname('id').asinteger mod 2=0 then
begin
dbgrid1.canvas.font.color:=clblue;
dbgrid1.canvas.brush.color:=clgrasientActivecaption;
end;
dbgrid1.DefaultDrawColumnCell(Rect,datacol,column,State);
end;实现隔行显示

[qwprince]

在DBGrid1DrawColumnCell（）事件中

对任何选中的单元格着色

if gdselected in state then //判断该单元格是否选中
begin
dbgrid1.Canvas.Brush.Color:=clred; //着色
end;

[zhongjinting]

我想根据每个单元格的数据特征，然后用不同的颜色描绘，这样更明显一些．

[FrameSniper]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

可以揭贴了！