怎样用不同的字体颜色显示数据

[YinLi]

我想把数据表中的数据，用不同的字体颜色显示，请问该用哪个控件，控制哪个属性？

[lxlzq]

用DBGRID的自画属性及事件即可。

[flytiger1977]

对呀，用dbgrid就可以

[YinLi]

我刚学delphi,请问用什么属性和时间，我不知道自画属性及事件

[Liujc]

用OnDrawColumnCell事件.

[Reaky]

用下面的實例試一下,在form中加入一個Table,并指向DBDEMOS中的biolife.db
再把下面的程式Copy過去.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Bmp: TBitmap;
OutRect: TRect;
BmpWidth: Integer;
begin
OutRect := Rect;

if Column.Field = Table1Common_Name then
begin
Bmp := TBitmap.Create;
try
Bmp.Assign (Table1Graphic);
BmpWidth := (Rect.Bottom - Rect.Top) * 2;
OutRect.Right := Rect.Left + BmpWidth;
DBGrid1.Canvas.StretchDraw (OutRect, Bmp);
finally
Bmp.Free;
end;
OutRect := Rect;
OutRect.Left := OutRect.Left + BmpWidth;
end;
if column.field=table1graphic then
begin
bmp:=TBitmap.create;
try
bmp.assign(table1graphic);
bmpwidth:=(rect.bottom-rect.top)*2;
outrect.right:=rect.left+bmpwidth;
dbgrid1.canvas.stretchdraw(outrect,bmp);
finally
bmp.free;
end;
outrect:=rect;
outrect.left:=outrect.left+bmpwidth;
end;

if (Column.Field = Table1Lengthcm) and
(Table1Lengthcm.AsInteger > 100) then
DBGrid1.Canvas.Font.Color := clRed;

DBGrid1.DefaultDrawDataCell (OutRect, Column.Field, State);
end;