数据表格中显示图标

[east_asp]

我在做一个设计，数据库中的纪录有检查，没检查，就诊等4种状态，每种状态要用图标表示

[雨后阳光2000]

你只有程序控制了，根据记录的不同状态，更换不同的图标（放一个Image）。

[火龙岛主]

使用其它控件，或者自定义控件！
Raize,Ehlib
你到http://www.51delphi.com去看看吧！

[zxtyhy]

dev的著名控件DevExpress QuantumGrid
可轻松实现
BDGrid好象不行

[sz1008]

自己画，用下面的方法试试
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var DBmp : TBitMap;
begin
DBmp := TBitMap.Create ;
case ADOTable1.FieldByName('Style').Value of
1 : DBmp.LoadFromFile(FileName1);
2 : ....
end;
if (DataCol = 2) then
begin
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.StretchDraw(Rect,DBmp);
end;

end;