文档章节

Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 1091
阅读 24
收藏 0

当我第一次读取 Form1.StyleLookup 并期待出现 "formstyle" 时, 给的确是 "backgroundstyle" ...

现在明白了, 原来窗体上覆盖着一个 TRectangle 对象:

uses FMX.Objects;

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Self.Children[0] as TRectangle).Fill.Color := claRed; //默认情况下, 通过 Children[0] 可读出这个矩形, 但其次序(Index)是可变的
  ShowMessage(Children[0].ToString); //TRectangle

  {Panel1 上也是盖着一个矩形对象, 应该还有其它也是这样}
  TRectangle(Panel1.Children[0]).Fill.Color := claYellow;
end;


现在的 FMX 窗体只有 8 个事件, 我回头数了数传统 VCL 窗体的事件有 40 个之多.
8个是少了点, 但其上级有不少可以覆盖的虚方法, 如:
MouseDown、MouseUp、MouseMove、MouseLeave、MouseWheel、DragDrop、DragEnter、DragOver、DragLeave、KeyDown、KeyUp 等等.
它们在窗体中没有以事件的方式出现, 可能是设计者认为在窗体中很少用到这些事件.

测试: 通过覆盖 MouseMove 响应鼠标移动事件:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs;

type
  TForm1 = class(TForm)
  private
  public
    { 在 TForm1 声明区 -> Ctrl+空格 -> 输入 MouseM... -> 回车 -> Shift+Ctrl+C }
    procedure MouseMove(Shift: TShiftState; X: Single; Y: Single); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.MouseMove(Shift: TShiftState; X, Y: Single);
begin
  inherited;
  Caption := Format('%f, %f', [X, Y]);
end;

end.


TForm 的继承链: TFmxObject -> TCommonCustomForm -> TCustomForm -> TForm

TCommonCustomForm 提出或实现了 TForm 和 TForm3D 的公有功能;
TCustomForm 通过实现 IScene 接口, 主要提供了 Canvas 和 Style 相关的功能;
TForm 没有功能扩展, 只是把部分成员改在 published 下以便在设计时可用.

{ TCommonCustomForm }
public
  constructor Create(...); override;   //
  constructor CreateNew(...); virtual; //它比 Create() 多出一个默认参数 Dummy, 但没看出什么用途(可能是给3D窗口用的吧); 暂时它和 Create() 没什么区别
  destructor Destroy; override;        //
  procedure InitializeNewForm; virtual;   //窗体初始化, 可通过覆盖此方法初始化窗体属性
  procedure AfterConstruction; override;  //建立后
  procedure BeforeDestruction; override;  //销毁前
  procedure AddObject(...); override;     //添加对象
  { children }
  function ObjectAtPoint(...): IControl; virtual; //指定位置上的控件
  { called from Platform }
  procedure SetMarkedText(...); virtual; //使用输入法时, 确认输入前的文本; 覆盖此方法可截获
  procedure PaintRects(...); virtual;    //更新指定的矩形(数组)范围; TCustomForm 里才有它的实现代码
  procedure MouseDown(...); virtual;          //响应鼠标事件
  procedure MouseMove(...); virtual;          //...
  procedure MouseUp(...); virtual;            //...
  procedure MouseWheel(...); virtual;         //...
  procedure MouseLeave; virtual;              //...
  procedure KeyDown(...); virtual;            //响应键盘事件
  procedure KeyUp(...); virtual;              //...
  function GetImeWindowRect: TRectF; virtual; //获取拥有输入焦点对象的范围矩形
  procedure Activate;                   //激活
  procedure Deactivate;                 //取消激活
  procedure DragEnter(...); virtual;    //响应拖放事件
  procedure DragOver(...); virtual;     //...
  procedure DragDrop(...); virtual;     //...
  procedure DragLeave; virtual;         //...
  procedure EnterMenuLoop;              //调用 TMenuBar 对象的 StartMenuLoop 方法
  { settings }
  procedure SetBounds(...); virtual;      //设置位置与大小
  function ClientToScreen(...): TPointF;  //点转换
  function ScreenToClient(...): TPointF;  //...
  function CloseQuery: Boolean; virtual;  //触发 OnCloseQuery 事件
  function ClientRect: TRectF;            //客户区矩形
  procedure Release;                      //释放
  procedure Close;                        //关闭
  procedure Show;                         //显示
  procedure Hide;                         //隐藏
  function ShowModal: TModalResult;       //显示为模态窗口
  procedure CloseModal;                   //触发 OnCloseQuery、OnClose 事件
  procedure Invalidate;                   //使无效而强制刷新
  procedure BeginUpdate;                  //开始更新
  procedure EndUpdate;                    //结束更新
  property Handle: TFmxHandle ...;        //窗口句柄
  property ContextHandle: THandle ...;    //环境句柄
  property ModalResult: TModalResult ...; //模态窗口的返回值
  property FormState: TFmxFormStates ...; //窗口模式状态
  property Designer: IDesignerHook ...;   //设计时相关的接口
  { IRoot }
  property Captured: IControl ...;  //被鼠标选中的控件
  property Focused: IControl ...;   //拥有焦点的控件
  property Hovered: IControl ...;   //鼠标下的控件
  property IsActive: Boolean ...;   //是否是激活状态
  property BiDiMode: TBiDiMode ...; //不同语言的方向
  property Caption: string ...;     //标题
  property Cursor: TCursor ...;     //光标类型
  property BorderStyle: TFmxFormBorderStyle ...; //边框样式
  property BorderIcons: TBorderIcons ...;        //工具条上的按钮
  property ClientHeight: Integer ...;            //客户区高
  property ClientWidth: Integer ...;             //客户区宽
  property Margins: TBound ...;                  //内边距
  property Position: TFormPosition ...;          //相对位置
  property Width: Integer ...;                   //宽
  property Height: Integer ...;                  //高
  property ShowActivated: Boolean ...;           //打开时是否激活
  property StaysOpen: Boolean ...;               //是否延迟打开
  property Transparency: Boolean ...;            //能否透明
  property TopMost: Boolean ...;                 //是否在最顶层
  property Visible: Boolean ...;                 //是否隐藏
  property WindowState: TWindowState ...;        //窗口状态(常态、最大化、最小化)
  property OnCreate: TNotifyEvent ...;          //建立时
  property OnDestroy: TNotifyEvent ...;         //销毁时
  property OnClose: TCloseEvent ...;            //关闭时
  property OnCloseQuery: TCloseQueryEvent ...;  //将要关闭时
  property OnActivate: TNotifyEvent ...;        //被激活时
  property OnDeactivate: TNotifyEvent ...;      //丢激活时
  property OnResize: TNotifyEvent ...;          //调整大小时
published
  property Left: Integer ...; //左
  property Top: Integer ...;  //上
end;


{ TCustomForm }
public
  constructor Create(...); override;    //
  constructor CreateNew(...); override; //
  destructor Destroy; override;               //释放
  procedure InitializeNewForm; override;      //初始化 Form, 应该是内部自动调用的
  procedure AddObject(...); override;         //添加对象
  procedure UpdateStyle;                      //更新样式
  property Canvas: TCanvas ...;               //绘图层
  property Fill: TBrush ...;                  //画刷
  property StyleBook: TStyleBook ...;         //样式表
  property ActiveControl: TStyledControl ...; //激活控件或获取被激活的控件
  property StyleLookup: string ...;           //指定控件样式名
  property OnPaint: TOnPaintEvent ...;        //重绘时
end;

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来

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

vga
2016/08/09
53
0
Delphi XE2:这就是我们所期待的Delphi吗?

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

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

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

Leamontea
2012/12/03
1K
2
使用 Delphi 开发移动应用

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

oschina
2012/12/11
10.5K
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
691
1

没有更多内容

加载失败,请刷新页面

加载更多

Spring Boot + Mybatis + Ehcache 二级缓存实例

二级缓存是多个SqlSession共享的,其作用域是mapper的同一个namespace,不同的sqlSession两次执行相同namespace下的sql语句且向sql中传递参数也相同即最终执行相同的sql语句,第一次执行完毕...

xiaolyuh
19分钟前
4
0
Spring源码学习(二)哎呦,按菜谱做菜与AbstractAutowireCapableBeanFactory.createBean流程差不多

记得跟老婆谈恋爱时,有一天心血来潮给老婆做饭,按照菜谱一步一步的做,结果差点把厨房烧了!!! 这事至今老婆还记得。 入口 上一篇说了,AbstractBeanFactory.getBean的主流程 ,今天来说下...

温安适
21分钟前
34
0
前端UI攻城狮 你们该抛弃jQuery了

你不再需要jQuery! Web工程师太依赖jQuery了,某种意义上说jQuery已经成了JavaScript的同义词。但是我们真的需要他么?或许我们应该反思一下什么时候才真的需要jQuery。 对我个人而言开始使...

前端老手
23分钟前
5
0
六、Java设计模式之工厂方法

工厂方法定义: 定义一个创建对象的接口,但让实现这个接口的类来决定实例化哪个类,工厂方法让类的实例化推迟到子类中进行 类型:创建型 工厂方法-使用场景: 创建对象需要大量重复的代码 ...

东风破2019
今天
6
0
win服务器管理遇到的一系列问题记录

有些小伙伴在使用iis7远程桌面管理工具的时候总是会遇到一系列的问题,下面就是为大家介绍一下服务器日常管理过程中出现的问题及我的解决办法和心得。希望能帮到大家。   拒绝服务器重新启...

1717197346
今天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部