delphi dbgrideh的问题
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'
哪位高手给看下
[解决办法]
dbgrideh6.Canvas.Font.Color:=clblack;
dbgrideh6.Canvas.Brush.Color:=clwhite;
应该是clskyblue和clblack颜色区分不大所致
[解决办法]
看看interface下面的uses,是不是引用了DBGrids单元,那是加入DBGrid的时候引入的,把他去掉;
窗体上有DBGrid控件,也去掉
因为DBGrids单元也有DefaultDrawColumnCell方法,重名了;但与DBGridEhs中的方法参数不同
默认的调用DBGrids中的,你这里要调用的是DBGridEhs中的方法,所以编译不通过,去掉就行了,,,,
