FireMonkey消息机制
来源:互联网 发布:mac如何切换中文输入法 编辑:程序博客网 时间:2024/05/17 00:19
interface
uses
Winapi
.
Windows, Winapi
.
Messages, System
.
SysUtils, System
.
Classes, FMX
.
Forms,
FMX
.
Platform
.
Win, FMX
.
Types, FMX
.
Layouts, FMX
.
Memo;
type
TForm1 =
class
(TForm)
Memo1: TMemo;
procedure
FormCreate(Sender: TObject);
procedure
FormDestroy(Sender: TObject);
private
FHwnd: HWND;
// 保存窗口句柄
FOldWndProc: LONG;
// 保存原始的消息处理函数
public
function
WndProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT;
end
;
var
Form1: TForm1;
implementation
{$R *.fmx}
function
WindowProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT; stdcall;
begin
// 因为在通常开发时,需要访问窗口内部的方法或控件等
// 为了方便起见,所以在这里做一个消息转发
Result := Form1
.
WndProc(HWND, Msg, wParam, lParam);
end
;
procedure
TForm1
.
FormCreate(Sender: TObject);
begin
// 获得主窗口句柄,在FMX框架下,Handle已经不是本窗口的句柄了,需要转换一下
FHwnd := FmxHandleToHwnd(Handle);
// 保存原始的WindowProc地址
FOldWndProc := GetWindowLongPtr(FHwnd, GWL_WNDPROC);
// 获得消息处理权
SetWindowLongPtr(FHwnd, GWL_WNDPROC, NativeInt(@WindowProc));
end
;
procedure
TForm1
.
FormDestroy(Sender: TObject);
begin
// 因为窗口销毁后无法再处理Windows传递来的消息,从而会发生内存访问错误
// 所以在窗口销毁前要把消息处理权移交给原始的WindowProc
SetWindowLongPtr(FHwnd, GWL_WNDPROC, FOldWndProc);
end
;
function
TForm1
.
WndProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT;
begin
Result :=
0
;
// 这里测试处理鼠标滚轮消息
if
Msg = WM_MOUSEWHEEL
then
begin
Memo1
.
Lines
.
Add(
'亲~!你使用了鼠标滚轮哦~!'
);
Exit;
end
;
Result := CallWindowProc(Ptr(FOldWndProc), HWND, Msg, wParam, lParam);
end
;
end
.
阅读全文
0 0
- FireMonkey消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 消息机制
- 数据结构之Prim算法
- 类的深入研究
- JAVA随机数之多种方法从给定范围内随机N个不重复数
- Scanner相关
- font的那些东西
- FireMonkey消息机制
- [LeetCode] 88. Merge Sorted Array
- Linux container_of 以及list_for_each_entry 的拆分理解
- Java多线程____JUC并发锁机制
- 今天学习filter函数,做课后题时发现一大神写的关于[::-1]的用法
- Java中的final关键字详解
- 二叉树
- Windows程序设计学习笔记一——第一个windows窗口
- talend 将本地文件或者mysql文件上传到hadoop/hdfs