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!~!~!~!
解决方案 »
- Tchar 横坐标值 显示
- 在delphi中如何使用MediaPlayer循环播放Wav文件
- 郁闷,这个汉字限制的功能怎么就实现得这么艰难呢?
- 大家讨论一下 怎么实现 UDP的可靠传输(Socket)
- 一个关于Cannot modify a read-only dataset的问题,请高手帮忙,在线等!
- string数据类型最多可以赋多长的字符串?
- 请问怎样把Excel文件导入到SQL server2000中?高分答谢!
- 如何使用Dephi将SQLServer 的数据转到Excell中
- DBNavigate有用吗?进者有分!
- 使用ListView如何操作数据
- 想让图片在TImage内移动
- 问个小问题,如果调用窗体所有者的方法,或给属性、控件其赋值
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
但是,我写的没有错啊 `
我从新打开个工程``然后按上面的再写一遍``没问题``
而我又回到上面的那个程序``还是报错``
为什么``
?????????
还有``问题是出在State上````````
帮帮 我 吧``帮帮 我怎么解决``谢谢`