procedure TForm19.DBGridEh6DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var n:integer;
begin
if adoquery13.FieldByName(‘speed').AsInteger>=70 then
begin
dbgrideh6.Canvas.Brush.Color:=clblue;
DBGridEh6.DefaultDrawColumnCell(Rect,DataCol,Column,State);//这句出错
end;
end;
delphi中提示的错误是[DCC Error] Unit19.pas(1486): E2010 Incompatible types: 'DBGridEh.TGridDrawState' and 'Unit19.TGridDrawState'
哪位高手给看下
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var n:integer;
begin
if adoquery13.FieldByName(‘speed').AsInteger>=70 then
begin
dbgrideh6.Canvas.Brush.Color:=clblue;
DBGridEh6.DefaultDrawColumnCell(Rect,DataCol,Column,State);//这句出错
end;
end;
delphi中提示的错误是[DCC Error] Unit19.pas(1486): E2010 Incompatible types: 'DBGridEh.TGridDrawState' and 'Unit19.TGridDrawState'
哪位高手给看下
解决方案 »
- 关于tcpsokcet连接的问题
- 看看这段代码,提示abstract error 错误,请教是什么原因?
- 关于DELPHI调用C#写的WEB SERVICE的问题!
- 请教请教~~
- 水印效果――高人来
- ADO的学习方法和参考书籍!(刚刚学,请大伙指教!Up 有分!呵呵)
- 请问如何让.gif图片能正常显示?
- 如何把access数据引打包到程序的安装包中,
- D6 的label autosize属性为什么不管用 设成true,caption还是不能完全显示 甚至一大截都看不到
- Delphi编程使用HOOK监视Windows
- 为什么总是提示“数据库引擎找不到输入表或查询 'mdb'”?
- delphi single类型比较大小
if adoquery13.FieldByName(‘speed').AsInteger>=70 then
-->
if adoquery1.FieldByName('speed').AsInteger>=70 then
procedure TForm19.DBGridEh6DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var n:integer;
begin
if adoquery13.FieldByName('速度').AsInteger>=70 then
begin dbgrideh6.Canvas.Font.Color:=clblack;
dbgrideh6.Canvas.Brush.Color:=clskyblue;
DBGrideh6.Canvas.FillRect(rect);
// DBGridEh6.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;
没出错,但是dbgrideh中那一列全部是蓝色的了,字都看不到了怎么办?要是不写DBGrideh6.Canvas.FillRect(rect);
颜色又不会变化了
end;
dbgrideh6.Canvas.Brush.Color:=clwhite;
应该是clskyblue和clblack颜色区分不大所致
dbgrideh6.Canvas.Brush.Color:=clwhite;
这样设置后,dbgrideh中就是白色的,设置为其他颜色也是一样的。像没有记录一样的,其实鼠标单击下数据还是有的,但是看起来就是白色的,没有字这是怎么回事?
dbgrideh6.Canvas.Font.Color:=clblack;放到下面试试。
窗体上有DBGrid控件,也去掉因为DBGrids单元也有DefaultDrawColumnCell方法,重名了;但与DBGridEhs中的方法参数不同
默认的调用DBGrids中的,你这里要调用的是DBGridEhs中的方法,所以编译不通过,去掉就行了,,,,