delphi xe FMX里的窗口如何像处理像VCL里的消息又一示例

最新推荐文章于 2025-04-13 00:28:40 发布

狼缘csdn

最新推荐文章于 2025-04-13 00:28:40 发布

阅读量695

点赞数

分类专栏： delphi xe 文章标签： delphi

本文链接：https://blog.youkuaiyun.com/weixin_42168423/article/details/127795678

版权

本文介绍如何在FireMonkey (FMX) 应用中，通过子类化 TForm 并重写 WM_APPCOMMAND 消息处理，避免简单message处理程序在FMX中失效的问题，指导读者在CreateHandle方法中实现自定义Win32子类化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

FMX大量过滤窗口消息，只调度它自己实际使用的几个消息。WM_APPCOMMAND不是其中之一，这就是为什么简单的message处理程序不能像在VCL中那样在FMX中工作。

因此，你必须通过SetWindowLongPtr(GWLP_WNDPROC)或SetWindowSubclass()直接手动派生TForm的Win32 HWND子类，以便在FMX看到窗口消息之前截获它们。参见Subclassing controls。

进行该子类化的理想位置是覆盖TForm.CreateHandle()方法。在创建TForm之后，您可以使用FMX的FormToHWND()函数来获取它的HWND。

protected
procedure CreateHandle; override;

...

uses
FMX.Platform.Win, Winapi.Windows, Winapi.CommCtrl;

function MySubclassProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM;
uIdSubclass: UINT_PTR; dwRefData: DWORD_PTR): LRESULT; stdcall;
begin
case uMsg of
WM_APPCOMMAND: begin
// use TMyForm(dwRefData) as needed...
end;
WM_NCDESTROY:
RemoveWindowSubclass(hWnd, @MySubclassProc, uIdSubclass);
end;
Result := DefSubclassProc(hWnd, uMsg, wParam, lParam);
end;

最低0.47元/天解锁文章