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'
哪位高手给看下
解决方案 »
- 放一个cxGrid,为什么在声明中能出3个类
- 这个自定义过程错在哪里,一直都想代码忧化
- delphi打开excel后,要求从第一行第一列显示,如何实现!即将光标定位在开头!
- SHFileOperation 能不能做到当有相同文件或文件夹时,给出提示,是否覆盖?
- Delphi8大讨论。优点,缺点。好的,郁闷的。
- 喂:问你呢! TICON.savetofile 保存的图标都是16色的如何保存为256色
- 如何由查询结果生成ACCESS文件,即生成一个新的表格然后存储成一个mdb文件!
- 怎么将程序自己添加到系统启动中,又怎么移出呢??
- Delhi 语法求助 $R barcode.d32
- 写指针下的属性能不能用变量代替呢?
- 为什么总是提示“数据库引擎找不到输入表或查询 '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中的方法,所以编译不通过,去掉就行了,,,,