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

【问题标题】：How do I make the scroll bars show up on a TScrollBox?如何使滚动条显示在 TScrollBox 上？
【发布时间】：2010-11-27 18:24:30
【问题描述】：

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

【问题讨论】：

标签： delphi delphi-2010 tscrollbox

【解决方案1】：

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

【讨论】：

好吧，看来我控制错了。我需要可以基于框内控件的大小和位置以外的其他因素以编程方式控制的滚动条。
@Mason Wheeler，如果您没有为您的任务找到合适的控件，ugly 的解决方案是在滚动框内放置一个面板。通过调整面板大小，您可以调整滚动条。任何其他控件都必须驻留在该面板上。当然，如果你需要更多的控制，你总是可以使用 TScrollBar 控件。

【解决方案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;

再见。

【讨论】：

【解决方案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

【讨论】：