DBGridEh选择时高亮度显示问题 Delphi

  忘了说了，该过程在DBGridEh的DrawColumnCell事件中调用就可以了  

 procedure   TDbgridForm.DBGrid1DrawColumnCell(Sender: TObject;
    const   Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
  begin 
   with  DBGrid1  do 
   begin 
    if  ((State = [gdSelected])  or  (State=[gdSelected,gdFocused]))  then 
     begin  
     Canvas.Font.Color : = ClYellow;
     Canvas.Brush.Color : = ClNavy;
      end 
     else 
     begin 
       if   DataSource1.DataSet.RecNo  mod   2 <> 0   then   
        Canvas.brush.Color : = ClWhite        
        else  
        Canvas.brush.Color : = clgreen;       
      end  ;
    DefaultDrawColumnCell(Rect, DataCol, Column, State); 
    end  ;
  end ;

引用：https://bbs.csdn.net/topics/30305871

DBGridEh选择时高亮度显示问题 Delphi

标签：data   pmc   int   user   fan   integer   ado   cno   use   

查看更多关于DBGridEh选择时高亮度显示问题 Delphi的详细内容...