当前位置：文江博客话题详情

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

发布于 2024-08-05 00:38:37 字数 115 浏览 4 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

眼波传意 2024-08-12 00:38:37

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

回复收藏 0 原文

一百个冬季 2024-08-12 00:38:37

Mason

只有在实际需要滚动到的内容之前，您才能看到滚动条。

要查看滚动条，请尝试以下操作

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;

“再见”。

Mason

You can't see the scrolling bars until there's actually something to scroll to.

To see the scrollbars try this

1.Set the BorderStyle property of the Form to bsSingle

2.Insert a button in a form

3.Put a scrollbar in a form

4.Set the Align property of the TScrollBox to alClient

5.Run this code in a button click

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;

Bye.

回复收藏 0 原文

椒妓 2024-08-12 00:38:37

如果我没有记错的话（没有 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

If I'm not mistaken (no Delphi around to check) it suffices to set HorzScrollBar.Range big enough.

EDIT: IIUC this DFM does what you want - entirely at design-time:

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

回复收藏 0 原文

~没有更多了~