FireMonkey下的如何实现WndProc

        因为FireMonkey是为了跨平台而存在的，所以Windows下特有的概念在FMX下是不存在的，比如消息机制
但是你创建一个FMX程序，发现仍然可以在Windows下工作，所以它必定是有消息处理机制的，只不过封装了起来，我们无法直接操作而已

下面的代码在FMX下实现VCL下的WndProc函数，来达到处理消息的目的

[delphi]  view plain copy

1. interface  
2.   
3. uses  
4.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, FMX.Forms,  
5.   FMX.Platform.Win, FMX.Types, FMX.Layouts, FMX.Memo;  
6.   
7. type  
8.   TForm1 = class(TForm)  
9.     Memo1: TMemo;  
10.     procedure FormCreate(Sender: TObject);  
11.     procedure FormDestroy(Sender: TObject);  
12.   private  
13.     FHwnd: HWND; // 保存窗口句柄  
14.     FOldWndProc: LONG; // 保存原始的消息处理函数  
15.   public  
16.     function WndProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT;  
17.   end;  
18.   
19. var  
20.   Form1: TForm1;  
21.   
22. implementation  
23.   
24. {$R *.fmx}  
25.   
26. function WindowProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT; stdcall;  
27. begin  
28.   // 因为在通常开发时，需要访问窗口内部的方法或控件等  
29.   // 为了方便起见，所以在这里做一个消息转发  
30.   Result := Form1.WndProc(HWND, Msg, wParam, lParam);  
31. end;  
32.   
33. procedure TForm1.FormCreate(Sender: TObject);  
34. begin  
35.   // 获得主窗口句柄，在FMX框架下，Handle已经不是本窗口的句柄了，需要转换一下  
36.   FHwnd := FmxHandleToHwnd(Handle);  
37.   // 保存原始的WindowProc地址  
38.   FOldWndProc := GetWindowLongPtr(FHwnd, GWL_WNDPROC);  
39.   // 获得消息处理权  
40.   SetWindowLongPtr(FHwnd, GWL_WNDPROC, NativeInt(@WindowProc));  
41. end;  
42.   
43. procedure TForm1.FormDestroy(Sender: TObject);  
44. begin  
45.   // 因为窗口销毁后无法再处理Windows传递来的消息，从而会发生内存访问错误  
46.   // 所以在窗口销毁前要把消息处理权移交给原始的WindowProc  
47.   SetWindowLongPtr(FHwnd, GWL_WNDPROC, FOldWndProc);  
48. end;  
49.   
50. function TForm1.WndProc(HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT;  
51. begin  
52.   Result := 0;  
53.   // 这里就可以添加处理消息的代码了
54.   
55.   Result := CallWindowProc(Ptr(FOldWndProc), HWND, Msg, wParam, lParam);  
56. end;  
57.   
58. end.