代码之家 › 专栏 › 技术社区 › Mason Wheeler

如何使滚动条显示在滚动框上?

tscrollbox delphi-2010 delphi

1

Mason Wheeler · 技术社区 · 16 年前

tscrollbox控件看起来基本上应该是一个tPanel,底部和右边都有滚动条。我试着在表单上放置一个,但是不管我做什么,我不能让滚动条出现,无论是在设计时还是在运行时。有人知道怎么让他们出现吗?

3 回复 | 直到 12 年前

1

3

Nick Dandoulakis 16 年前

集合 AutoScroll 属性到 True .
现在如果你添加控件削减框边框,将显示条。

2

RRUZ 16 年前

石匠

你不能看到滚动条,直到有东西滚动到。

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

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;

再见。

3

0

Uli Gerhardt 16 年前

如果我没有弄错(没有德尔菲来检查)它足够设置霍兹克罗尔酒吧。范围足够大。

编辑: 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