有关Delphi TDBGrid滚动条的问题请教

首先dbgrid的是没有滚动事件的，但有相关的保护方法，你要使用滚动事件必须自己派生
另外，滚动条的显示属性也是保护的，你也要自己派生

解决方案 »

  1.   

    2001-5-13 9:55:00 作者：CoDelphi.com
        为了除去TDBGrid部件的垂直滚动条，你必须重载它的Paint方法。在Paint事件中你必须调用SetScrollRange API过程来把最小和最大的滚动值设成零（这样会禁止滚动条），然后调用继承的Paint。下面的代码是一个包含称为TNoScrollBarDBGrid，能完成此工作的部件的单元。type
      TNoScrollBarDBGrid = class(TDBGrid)
      private
      protected
        procedure Paint; override;
      public
      published
      end;procedure Register;implementationprocedure Register;
    begin
      RegisterComponents(''Samples'', [TNoScrollBarDBGrid]);
    end;{ TNoScrollBarDBGrid }procedure TNoScrollBarDBGrid.Paint;
    begin
      SetScrollRange(Handle, SB_VERT, 0, 0, false);
      inherited;
    end;
     
      

  2.   

    fengerfeifei(风儿飞飞)你好， 能不能说具体一些!
      

  3.   

    不用那么复杂！
    使用API函数ShowScrollBar(DBGrid1.Handle,SB_VERT,false);即可隐藏垂直滚动条。把第二个参数换成SB_HORZ就是对水平滚动条操作。false为隐藏，true是显示
      

  4.   

    Crob(我干嘛这么帅)　这个办法好!我给你10分好了!