delphi 窗体过长,怎么加滚动条,求过来人解决

Answer 1

直接加一个ScrollBar1: TScrollBar;控件,按你的需要设计窗体,需要多高就设计多高,总不是要放很多控件吗,控件摆放好后,再将窗体缩放到理想的大小,把ScrollBar1: TScrollBar;的对齐属性设置为靠左或靠右,并且将设置为垂直滚动条就可以了,窗体就可以滚动了,不过这样的搞法,用户肯定不欢迎,要拨动滚动条,用户会烦的.

追问

这种控件鼠标拖动时不能及时显示，需要松开才显示拖动后的结果。我是想问有没有解决的办法或第三方控件。delphi自带的控件都不好用，难怪学的人少。

追答

不是不好用,是不会用,DELPHI在开发数据库管理软件方面,无与论比,它的控件可选设置项目太多,一时难以掌握,你就不能说它不好用了.下面这位告诉你了 self.AutoScroll := true

追问

这个我知道，我的意思是说这个问题就是鼠标拖动滚动条时不能即实生效，需要松开滚动条才生效。这就如同dbgrid一样。可是dbgrid我可以用第三方控件ehgrid，那这个滚动条呢。

Answer 2

当你的空间超出窗体时，窗体会自动加上滚动条.

Answer 3

放个ScrollBox到窗体上，控件都移进去，会自动管理滚动条的

不过不推荐这样做，在C/S程序里最好是不用滚动条方式，可以考虑用分页、分步骤（向导）

追问

这种控件鼠标拖动时不能及时显示，需要松开才显示拖动后的结果。我是想问有没有解决的办法或第三方控件。delphi自带的控件都不好用，难怪学的人少。

追答

自己处理滚动条事件或滚轮事件，不过还是建议分页

追问

求代码，我这儿上头要求，不得不这样做。

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
self.AutoScroll := true;
end;

Answer 5

//Form的滚动条
HorzScrollBar.Tracking := True;
VertScrollBar.Tracking := True;

//如果用TScrollBox
With ScrollBox1 Do
Begin
HorzScrollBar.Tracking := True;
VertScrollBar.Tracking := True;
End;