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

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


uses FMX.Objects;

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Self.Children[] as TRectangle).Fill.Color := claRed; //默认情况下, 通过 Children[0] 可读出这个矩形, 但其次序(Index)是可变的
  ShowMessage(Children[].ToString); //TRectangle   {Panel1 上也是盖着一个矩形对象, 应该还有其它也是这样}
  TRectangle(Panel1.Children[]).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;
04-20 12:18