一个关于dbgrid的问题？

Question

怎样能使grid在没有数据的情况下显示网格？？
如何更改背景？？并且在grid的背景下能够显示 '没有数据' 字符串？？我查了查 dbgrideh 不知道在哪里？？

Answer 1

procedure Trywhf.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;