如何使滚动条显示在TScrollBox上？

Question

TScrollBox控件看起来基本上就像是一个TPanel，底部和右边缘都有滚动条。我试着在窗体上放置一个滚动条，但无论我做什么，我都不能使滚动条真正出现，无论是在设计时还是在运行时。有人知道怎么让他们现身吗？

Answer 1

将AutoScroll属性设置为True。

现在，如果添加剪裁框边界的控件，则会出现栏。

Answer 2

梅森

在实际滚动到某些内容之前，您看不到滚动条。

要查看滚动条，请尝试以下命令

1.将表单的BorderStyle属性设置为bsSingle

2.在表单中插入按钮

3.在窗体中放置滚动条

4.将TScrollBox的Align属性设置为alClient

5.在单击按钮时运行此代码

procedure TForm10.Button1Click(Sender: TObject);
Var
i : integer;
ed : TEdit;
begin
           for i:=1 to 30 do
           Begin
              ed:=TEdit.Create(self);
              ed.Parent:=ScrollBox1;
              ed.Top:=5+((i-1)*30);
              ed.Left:=10;
              ed.Width:=100;
              ed.Text:='Editext'+ IntToStr(i);
           End;
end;

再见。

Answer 3

如果我没记错(没有用Delphi检查)，将HorzScrollBar.Range设置得足够大就足够了。

编辑： IIUC此DFM完全在设计时执行您想要的操作：

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 206
  ClientWidth = 312
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 8
    Width = 150
    Height = 150
    HorzScrollBar.Range = 300
    VertScrollBar.Range = 300
    AutoScroll = False
    TabOrder = 0
  end
end