procedure TMlll_Frm.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if DataModule1.ADOQuery_Dis.FieldByName('QM').AsInteger<0 then
begin
DBGridEh1.Canvas.Brush.Color:=clYellow;
DBGridEh1.Canvas.Font.Color:=clRed;
end;
DBGridEh1.Canvas.pen.Mode:=pmMask;
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;报错~~~~::::::[Error] uMLLL.pas(992): Incompatible typesWhy?????
Help Me!~!~!~!
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if DataModule1.ADOQuery_Dis.FieldByName('QM').AsInteger<0 then
begin
DBGridEh1.Canvas.Brush.Color:=clYellow;
DBGridEh1.Canvas.Font.Color:=clRed;
end;
DBGridEh1.Canvas.pen.Mode:=pmMask;
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;报错~~~~::::::[Error] uMLLL.pas(992): Incompatible typesWhy?????
Help Me!~!~!~!
解决方案 »
- 如何在数据库中插入数据
- 用socket连接时,怎样让服务器上数据库中的记录显示在客户端combobox1上来?
- 用delphi7写了个程序,用的ADO,现在急着做安装盘,那位朋友提供一种快速、过程漂亮的安装盘制作工具
- 关于进度条控件的两个问题
- *************谁能给我一个完整的简单例子***************
- 动态数组的问题
- 屏蔽掉的事件怎么恢复?
- 300分!关于声音、录音控制选项(就是系统托盘的声音图标)的深入讨论
- 如何将一个窗体从彻底从内存中删除?
- 为什么访问共享目录会出现“找不到网络路径”?
- 想让图片在TImage内移动
- 问个小问题,如果调用窗体所有者的方法,或给属性、控件其赋值
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
但是,我写的没有错啊 `
我从新打开个工程``然后按上面的再写一遍``没问题``
而我又回到上面的那个程序``还是报错``
为什么``
?????????
还有``问题是出在State上````````
帮帮 我 吧``帮帮 我怎么解决``谢谢`