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

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

3 个答案: