文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 332
阅读 20
收藏 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第三方控件汇总—报表、图表、界面、数据库等

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

Leamontea
2012/12/03
0
2
Delphi XE2:这就是我们所期待的Delphi吗?

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

虫虫
2011/10/31
40.4K
49
Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来

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

vga
2016/08/09
17
0
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
662
1
PostgreSQL的Delphi组件--PostgreDAC

PostgreDAC 是适合 Delphi/C++ Builder 操作 PostgreSQL 数据库的功能非常强大的组件包,允许你创建直连 PostgreSQL 数据库的 Delphi/C++ Builder 应用,无需 BDE 和 ODBC 支持。 使用 Post...

匿名
2012/03/20
2.1K
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

OSChina 周三乱弹 —— 我居然在 osc 里追剧

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @舆情风控小组 :分享王菲的单曲《笑忘书》 《笑忘书》- 王菲 手机党少年们想听歌,请使劲儿戳(这里) @艾尔库鲁斯:如果给大家一个选择的机...

小小编辑
39分钟前
57
6
rabbitMq的客户端使用笔记

1、channel声明队列的queueDeclare方法的参数解析 durable: 是否持久化, 队列的声明默认是存放到内存中的,如果rabbitmq重启会丢失,如果想重启之后还存在就要使队列持久化,保存到Erlang自...

DemonsI
47分钟前
0
0
“全新” 编程语言 Julia开箱体验

本文共 851字,阅读大约需要 3分钟 ! 概 述 Julia 是一个 “全新”的高性能动态编程语言,前两天迎来了其 1.0 正式版的重大更新。Julia集 Python、C、R、Ruby 之所长,感觉就像一种脚本语言...

CodeSheep
今天
11
0
软件自动化测试初学者忠告

题外话 测试入门 很多受过高等教育的大学生经常问要不要去报测试培训班来入门测试。 答案是否。 高等教育的合格毕业生要具备自学能力,如果你不具备自学能力,要好好地反省一下,为什么自己受...

python测试开发人工智能安全
今天
5
0
java并发备忘

不安全的“先检查后执行”,代码形式如下: if(条件满足){ //这里容易出现线程安全问题//doSomething}else{//doOther} 读取-修改-写入 原子操作:使用CAS技术,即首先从V中读取...

Funcy1122
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部