请教 scrollbox的用途?

Question

看帮助好像是防止窗体中状态条等,也随着窗体的滚动条的滚动.能不能简单的举个例子说明scrollbox 的用途?
谢谢!

Answer 1

放一个scrollbox
里面放一个image,autosize:=true
然后装一个特别大的图片。

Answer 2

个人感觉像一个带滚动条的Panel，呵呵

Answer 3

procedure TForm1.FormCreate(Sender: TObject);var
  I : Integer;begin  { First, initialize the page control }
  PageControl1.TabWidth := PageControl1.ClientWidth div 4 - 1;  PageControl1.ActivePage := PageControl1.Pages[0];  { set up the scrollbar to reflect the structure of the page control}
  with ScrollBar1 do
  begin
    Max := PageControl1.PageCount - 1;
    Min := 0;
    SmallChange := 1;
    { set LargeChange to a single row of tabs }
    LargeChange := PageControl1.ClientWidth div PageControl1.TabWidth;
  end;end;procedure TForm1.PageControl1Change(Sender: TObject);begin
  with Sender as TPageControl do
    ScrollBar1.Position := ActivePage.PageIndex;end;procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);begin
  PageControl1.ActivePage := PageControl1.Pages[ScrollPos];
end;