Question

Delphi Tscrollbox 内容 在win7+系统中 最大高度问题

我在win7系统中用delphi7 新建窗体 添加了Tscrollbox,再往TScrollbox中添加TPanel控件 发现 到了一定高度以后 tpanel的top 不管怎么改 就只有32767了 后面的tpanel都叠在同一个地方 这怎么办刚学delphi 不懂代码如下:procedure TForm1.FormCreate(Sender: TObject);vari:integer;MyPanel: TPanel;begin i:=0; while i<70 do begin MyPanel:= TPanel.Create(nil); MyPanel.Caption := 'this is page '+inttostr(i+1); with MyPanel do begin Parent := ScrollBox1; Top := 5 + (500+5)*i; Left := 5; Width := 300; Height := 500; BorderStyle := bsSingle; BevelOuter := bvNone; Color := clWhite; ParentCtl3D := false; end; i := i+1; end;end;具体执行情况效果见附图

Answer 1

这个的确是个问题。

控件top属性是integer，理论取值范围是-2147483648 ~2147483647 ；

但实际取值范围是 -32768~32767，是smallInt。

你只能换别的办法实现效果了。跟系统、delphi版本没关系。xe版本也只能到32767。

追问

别的办法？能给个思路么

追答

一般这种超长的可以用分页显示。比如用2个scorllbox