文档章节

Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox、TVertScrollBox、TFramedScrollBox、TFramedVertScro...

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 332
阅读 23
收藏 0

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;

本文转载自:http://www.cnblogs.com/del/archive/2011/10/07/2201008.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi XE2:这就是我们所期待的Delphi吗?

版权声明:本文为 OSChina.NET 原创编译 转载务必注明出处,并保留链接! 作者:蒂姆.安德森 Delphi是被一些人遗忘了的快速应用程序开发工具,但它与可视组件库相结合,依然是开发Windows本机...

虫虫
2011/10/31
40.7K
49
最全面的常用Delphi第三方控件汇总—报表、图表、界面、数据库等

有网友问我常用Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表方面: TeeChart Pro 在delphi 的图形显示方面目前唯一的选择,虽然从delphi 3 就随...

Leamontea
2012/12/03
0
2
Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来

Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来日期:2011年9月9日 作者: 人气:5340 查看:[大字体 中字体 小字体] XE2 有了 FireMonkey 框架,它不同于 VCL ,以往的数据感...

vga
2016/08/09
17
0
使用 Delphi 开发移动应用

引言 现在移动设备的发展现在变成了趋势. 我们可以考虑本地语言开发 (例如ObjectiveC for IOS或 Java for Android), 但通常对新开发者的学习代价高. 另一个选择是第三方代理 (例如Titanium,...

oschina
2012/12/11
10.3K
21
PostgreDAC 2.8.0,Delphi的PostgreSQL组件

PostgreDAC 2.8.0 发布了,该版本首次通过 RAD Studio XE2 支持 Mac OS X 系统,大大提升了 FireMonkey 支持,修复了关于 TPSQLMonitor 的 bug。 完整改进记录: [!] FireMonkey and cross p...

红薯
2012/03/20
675
1

没有更多内容

加载失败,请刷新页面

加载更多

ConcurrentHashMap源码解析

初始化 先看看ConcurrentHashMap中几个重要的属性: // 初始化容量大小static final int DEFAULT_INITIAL_CAPACITY = 16;//默认负载因子static final float DEFAULT_LOAD_FACTOR = 0.75f...

grace_233
11分钟前
0
0
java对象的浅拷贝和深拷贝

浅拷贝 java的数据类型有基本数据类型(如:int、long等)和引用数据类型。例如:对象1中有属性a(基本数据类型)和属性b(引用数据类型),在进行浅拷贝到对象2时,属性a复制属性的值给对象...

yangyangyyyy
11分钟前
0
0
SQLServer AlwaysOn在阿里云的前世今生

缘起 早在2015年的时候,随着阿里云业务突飞猛进的发展,SQLServer业务也积累了大批忠实客户,其中一些体量较大的客户在类似大促的业务高峰时RDS的单机规格(规格是按照 内存CPUIOPS 一定比例...

阿里云云栖社区
12分钟前
0
0
ubuntu16.04 LNMP搭建 php7.1

sudo apt-get update sudo apt-get install mysql-server mysql-client sudo apt-add-repository ppa:ondrej/php sudo apt-get update sudo apt-get install php7.1 php7.1-fpm php7.1-cgi p......

一千零一夜个为什么
18分钟前
0
0
阿里云高级技术专家带你全面了解云主机性能评测

钱超,花名西邪,阿里云高级技术专家,超12年老阿里,是云主机性能领域的知名专家。 在目前的云计算测评领域,很多性能测评存在营销的包装,容易引起误导:比如用瞬时性能引导读者得出结论,...

阿里云官方博客
26分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部