如何去掉DBGrid的滚动条？？

我的查询记录数比较少，如何去掉DBGrid的滚动条？？

解决方案 »

  1.   

    不能去掉DBGrid的滚动条，除非你将DBGrid拉伸足够大,否则滚动条就会自动出现。
      

  2.   

    在你的单元文件中
    type
      TForm1 = class(TForm)
    上面加入
    type 
      TCGrid= class ( TCustomGrid)
    end;
    然后再form的onshow事件中：
      TCGrid(self.DBGrid1).scrollbars:=ssNone;
    就可以了。
      

  3.   

    to cjfzy(他山之石,可以攻玉):查询后还是有scrollbars
      

  4.   

    cjfzy(他山之石，可以攻玉。) 
    不行呀。编译都通不过的你的程序自己运行了吗？
      

  5.   

    在dbgrid中的scrollbars属性设为ssNone
      

  6.   

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    ShowScrollBar(DBGrid1.Handle,SB_BOTH,false);
    end;
      

  7.   

    在query的afteropen中再写
    TCGrid(self.DBGrid1).scrollbars:=ssNone;
      

  8.   

    ShowScrollBar(DBGrid.Handle, SB_BOTH ,false);
    ShowScrollBar(ListView1.Handle, SB_VERT, False); //隐藏纵向滚动条
    ShowScrollBar(ListView1.Handle, SB_HORZ, False); //隐藏横向滚动条