如何更改选中DBGrid记录的高亮颜色？ >>>>

>>>>>如题! 问题点数：50、回复次数：3Top

1 楼qiubolecn（来自差生市）回复于 2002-03-12 11:05:06 得分 50

在dbgrid的DrawColumnCell事件里  
  比如选中后的是红底黄字；  
  procedure   TForm1.DBGrid1DrawColumnCell(Sender:   TObject;   const   Rect:   TRect;  
      DataCol:   Integer;   Column:   TColumn;   State:   TGridDrawState);  
  var  
      C1,   C2:   TColor;  
  begin  
      if   gdSelected in   State   then  
      begin  
          with   TDBGrid(Sender).Canvas   do  
          begin  
          C1   :=   Brush.Color;  
          C2   :=   Font.Color;  
   
          Brush.Color   :=   ClRed;//红底  
          Font.Color   :=   Clyellow;//黄字  
   
          TDBGrid(Sender).DefaultDrawColumnCell(Rect,   DataCol,   Column,   State);  
          Brush.Color   :=   C1;  
          Font.Color   :=     C2   ;  
          end;  
      end;  
  end;Top

2 楼wzrlover（无语无声无欲无泪吾独行!）回复于 2002-03-12 18:06:21 得分 0

tks！Top

3 楼blackfiles（一个和尚挑水喝）回复于 2002-03-12 19:17:23 得分 0

是的哦。Top

相关问题

• dbgrid
• drawcolumncell
• brush
• datacol
• tdbgrid
• color
• 黄字
• sender
• rect
• state

• 帖主：wzrlover
• qiubolecn

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载