如何使StringGrid或DBGrid中的若干行的背景色为红色,文字为白色?

解决方案 »

  1.   

    DBGrid.OnDrawColumnCellTDBGrid(Sender).Canvas.Brush.Color := clNavy ;
    TDBGrid(Sender).Canvas.Font.Color := clRed ;
    TDBGrid(Sender).Canvas.FillRect ( Rect ) ;
    TDBGrid(Sender).DefaultDrawColumnCell ( Rect , DataCol , Column , State ) ;
      

  2.   

    1.dbgrid
    //背景为红色
    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    begin
      form1.DBGrid1.Canvas.Brush.Color:=clred;
      form1.DBGrid1.Canvas.Pen.Mode:=pmmask;
      form1.DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
    直接设置dbgrid的font属性中的color为clwhite;
      

  3.   

    同意楼上的,
    但是我想问个问题:
    如果我想实现“window 优化大师”那样当鼠标指向dbgrid中的一行某一列的时候
    能够通过一个浮动条来提示该列的内容呢 ?谢谢
      

  4.   


    能够通过一个浮动条来提示该列的内容呢 ?Reply:showhinthint:=...