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

Question

TScrollBox 控件看起来应该基本上是一个 TPanel，其底部和右边缘附有滚动条。我尝试在表单上放置一个，但无论我做什么，我都无法让滚动条真正出现，无论是在设计时还是在运行时。有谁知道如何让他们出现？

Answer 1

将AutoScroll属性设置为True。
现在，如果您添加剪辑框边框的控件，就会出现条形图。

Answer 2

石匠

在实际有要滚动的内容之前，您看不到滚动条。

要查看滚动条试试这个

1.设置Form的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