delphi - 我如何将 WNDPROC 转换为 TWndMethod

Question

我怎样才能投出 WNDPROC到 TWndMethod

到目前为止，我尝试了这个，但给我一个 invalid typecast错误。

 TWndMethod(Pointer(GetWindowLong(FHandle, GWL_WNDPROC)));

Answer 1

如果要子类化窗口句柄(使用 SetWindowLong)来处理 TWndMethod 函数中的窗口消息，则不应将 GetWindowLong(FHandle, GWL_WNDPROC) 返回的值强制转换为 TWndMethod。您应该使用 MakeObjectInstance 函数来获取可以传递给 SetWindowLong 的值。阅读 Sertac Akuyz 的答案以了解总体思路。

请注意，在 Delphi 应用程序中很少需要对窗口句柄进行子类化。 Delphi 提供了几种其他方式来干预窗口消息处理，它们更加简单和安全。