Delphi XE2의 FireMonkey 시작(39) - 컨트롤 베이스: TScrollBox, TVertScrollBox, TFramedScrollBox, TFramedVertScrollBox

{ TScrollBox }
public
  constructor Create(...); override;   //
  destructor Destroy; override;        //
  procedure AddObject(...); override;  //
  procedure Sort(...); override;       //                
  procedure MouseDown(...); override;  //
  procedure MouseMove(...); override;  //
  procedure MouseUp(...); override;    //
  procedure MouseWheel(...); override; //
  procedure Realign; override;         //
  procedure Centre;                    //       
  procedure ScrollTo(...);             //       
  procedure InViewRect(...);           //    
  function ClientWidth: Single;        //     
  function ClientHeight: Single;       //     
  property HScrollBar: TScrollBar ...; //      
  property VScrollBar: TScrollBar ...; //      
published
  property AutoHide: Boolean ...;           //                ;    True
  property Animated: Boolean ...;           //        ;    True
  property DisableMouseWheel: Boolean ...;  //         ;    False,    
  property MouseTracking: Boolean ...;      //         (    ,      );    False
  property ShowScrollBars: Boolean ...;     //       ;    True
  property ShowSizeGrip: Boolean ...;       //     Grip(        );    False
  property UseSmallScrollBars: Boolean ...; //         
end;

uses FMX.Layouts, FMX.Objects;

var
  ScrollBox1: TScrollBox;
  Rectangle1: TRectangle;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ScrollBox1 := TScrollBox.Create(Self);
  ScrollBox1.Parent := Self;
  ScrollBox1.Align := TAlignLayout.alClient;
  ScrollBox1.MouseTracking := True;

  Rectangle1 := TRectangle.Create(Self);
  Rectangle1.Parent := ScrollBox1;
  Rectangle1.SetBounds(100, 100, ClientWidth*2, ClientHeight*2);
end;