1

TScrollBox コントロールは、基本的に、スクロール バーが下端と右端に沿って取り付けられた TPanel のように見えます。フォームに配置しようとしましたが、何をしても、設計時または実行時にスクロール バーを実際に表示することはできません。それらを表示させる方法を知っている人はいますか？

4

3 に答える 3

3

AutoScrollプロパティを に設定しますTrue。ボックスの境界線を切り取る
コントロールを追加すると、バーが表示されます。

于 2009-09-12T14:53:51.367 に答える
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;

さよなら。

于 2009-09-12T15:04:25.393 に答える
0

私が間違っていなければ (チェックする 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
于 2009-09-13T11:46:51.463 に答える