【Delphi】FireMonkey下的WndProc实现

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

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

interfaceuses  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.