我用了如下两种方法都发生错误,请问还有没有其他方法。
错误信息:interface not support;
procedure TfDrcgdd.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if DSBC.DataSet.FieldByName('Amount').AsFloat = DSBC.DataSet.FieldByName('rece_amou').AsFloat then
begin DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State); end;
end;procedure TfDrcgdd.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DSBC.DataSet.FieldByName('Amount').AsFloat = DSBC.DataSet.FieldByName('rece_amou').AsFloat then
begin
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.Brush.Color:=clblue;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end;
错误信息:interface not support;
procedure TfDrcgdd.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if DSBC.DataSet.FieldByName('Amount').AsFloat = DSBC.DataSet.FieldByName('rece_amou').AsFloat then
begin DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State); end;
end;procedure TfDrcgdd.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DSBC.DataSet.FieldByName('Amount').AsFloat = DSBC.DataSet.FieldByName('rece_amou').AsFloat then
begin
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.Brush.Color:=clblue;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end;
解决方案 »
- delphi7做一个信息提示
- 关于HINT属性...
- 类型疑问
- 请问如何在image.canvas上放置一个lable进行文字编辑(类似photoshop那样有个录入框输入文字和编排)?
- 如何得到 WebBrowser当前url ?
- 李维<<ADO/MTS/COM+高级程序设计>> P406页 为什么老是报错: Invalid data packet ??? 代码如下
- 火急寻求帮助(把剩下的钱完全奉上)!!
- 想学ADO,请问哪里可以下到李维的<<DELPHI 5.X ADO/MTS/COM+高级程序设计》这本书?
- 消息!!!
- 关于for 循环 关于for 循环 关于for 循环
- 如何在TClientDataSet.CreateDataSet后,代码实现增加一个计算字段?
- 呼吁大家提高结帖率。
procedure TfDrcgdd.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
try
if DSBC.DataSet.FieldByName('Amount').AsFloat = DSBC.DataSet.FieldByName('rece_amou').AsFloat then
DBGrid1.Canvas.Font.Color := clRed;
except
DBGrid1.Canvas.Font.Color := clwhite;//可以根据需要定义
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
//编译之后运行编译的程序绝对不会有问题了