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!~!~!~!

解决方案 »

  1.   

    DataModule1.ADOQuery_Dis.FieldByName('QM').Value
      

  2.   

    uMLLL.pas这个单元里面有类型错误,你双击这个错误会定位到出错行
      

  3.   

    朋友``错误就在这行``
           DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State); 
        但是,我写的没有错啊  `
      我从新打开个工程``然后按上面的再写一遍``没问题``
       而我又回到上面的那个程序``还是报错``
         为什么``
         ?????????
       还有``问题是出在State上````````
           帮帮 我 吧``帮帮 我怎么解决``谢谢`