请教各位大大:
比如在dbgrid中,某个栏位我想将其负数显示为红色,应该怎么做?

請參考以下連結

delphi.ktop.com.tw/board.php


===================引 用 luowy651 文 章===================
请教各位大大:
比如在dbgrid中,某个栏位我想将其负数显示为红色,应该怎么做?

procedure Tfm_xyed.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

if adoquery1.FieldByName('col1').asfloat<0 then
begin
if column.fieldname='col1' then
begin
dbgrid1.Canvas.Font.Color:=clred;
//dbgrid1.Canvas.Font.Color:=RGB(242,0,0);
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end;

end;