现在的位置: 首页 > 综合 > 正文

Delphi XE2 之 FireMonkey 入门(39) – 控件基础: TScrollBox、TVertScrollBox、TFramedScrollBox、TFramedVertScrollBox

2013年03月13日 ⁄ 综合 ⁄ 共 1512字 ⁄ 字号 评论关闭
TScrollBox 是不少控件(TMemo、TListBox、TStringGrid、TTreeView、TImageViewer 等)的基础, 所以先学.

TVertScrollBox 只比 TScrollBox 少了竖滚动条.

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;

抱歉!评论已关闭.