FMX有一套自己的消息处理机制。类似这样:
2024-08-24 15:38:22
unit Unit1; interface uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Presentation.Messages,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FMessageSender: TMessageSender;
public
{ Public declarations }
procedure DefaultHandler(var Message); override;
end; var
Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject);
begin
FMessageSender.SendMessage(10, 'aaa');
end; procedure TForm1.DefaultHandler(var Message);
begin
inherited;
ShowMessage(TDispatchMessage(Message).MsgID.ToString());
ShowMessage(TDispatchMessageWithValue<String>(Message).Value);
end; procedure TForm1.FormCreate(Sender: TObject);
begin
FMessageSender := TMessageSender.Create();
FMessageSender.Receiver := Self;
end; procedure TForm1.FormDestroy(Sender: TObject);
begin
FMessageSender.DisposeOf();
end; end.
最新文章
- Servlet学习:实现分页效果的方法
- LINUX安全加固规范
- Java内存区域-- 运行时数据区域
- Sqli-labs less 41
- ThinkPHP中视图模型详解.
- 手势识别=读取手机联系人=ContentResolver-Day3
- html里面自定义弹出窗口
- Java正則表達式演示样例
- 利用CSS3制作网页动画
- git日常使用经验积累
- 远程拷贝、查看端口、vim常见快捷键、查找替换命令、grep命令、查看存储空间的命令、chkconfig命令、系统自动启动级别、主机名配置、IP地址配置、域名映射、防火墙设置
- 网页设计(CSS&;JS)
- linux c ---raise 使用范例的代码
- 服务器资源监控插件(jmeter)
- mysql的报错
- css:伪类和伪元素
- 深度森林DeepForest
- CF Round #509 (Div. 2)
- 第 14 章 结构和其他数据形式(names)
- Android -- Property Animation
热门文章
- MySQL案例02:ERROR 1221 (HY000): Incorrect usage of DB GRANT and GLOBAL PRIVILEGES
- centos7主机名的修改
- Topshelf Configuration z
- 【Leetcode】【Medium】Validate Binary Search Tree
- .net 面向对象程序设计深入](1)UML
- July 25th 2017 Week 30th Tuesday
- July 02nd 2017 Week 27th Sunday
- The Tao to Excellent
- 百度地图隐藏LOGO显示
- HttpServletRequest的随手记