如何让透明Form获取鼠标输入事件？

Question

我想创建一个 Delphi 应用程序，当用户将鼠标移到屏幕左上角时，它会执行一些有趣的操作。我考虑了一下并计划采用以下策略：

1. 创建一个非常小的 3x3 表单并使其透明并始终位于顶部。也使其没有标题栏或边框。

2. 为表单定义鼠标进入事件。

我在步骤1中使用以下代码：

procedure TopLeftForm.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;

  self.TransparentColor := true;
  self.TransparentColorValue := self.Color;
  self.BorderStyle := bsNone;
end;

问题是我发现当表单透明时，它无法捕获鼠标输入事件。我可以使表单不透明，以便获得鼠标输入事件，但这样用户可以在屏幕左上角看到表单，这不是我想要的。

您对我的问题有什么建议？

Answer 1

您想要的是一个“钩子”，它可以为您提供有关鼠标事件的信息，而这些事件并不适用于您的程序。这是一个太大的主题，无法一次性为您提供操作方法，但这两个链接应该会有所帮助：

了解如何使用 Windows Hooks

使用 Delphi 代码的鼠标钩子教程

为什么使用 Windows Hook？

Windows 环境是围绕传递消息而设计的。通常，程序只对直接发送到其自己的窗口的消息感兴趣。尝试确保您的应用程序有一个可以获取消息的窗口，当其他应用程序位于您的应用程序下方的同一位置时，会阻止其他应用程序接收这些消息，并且如果另一个窗口位于您的窗口上方，那么您将无法收到消息。如果您想了解正在发生但通常不会发送给您的活动 - 例如，在应用程序窗口外单击鼠标。为了使应用程序能够看到并非针对其自身的事件，可以使用 Windows 挂钩。

有不同类型的挂钩，具体取决于您要访问的内容。鼠标钩适合您在此处指定的内容。系统为所有已安装的钩子维护一个“钩子链”——您有责任将消息沿着链传递，并从链中卸载自己。

要访问消息，您的钩子函数将如下所示（代码取自上面的第二个链接并进行改编）：

function MouseHookHandler(ACode: Integer; WParam: WParam; LParam: LParam): LResult; stdcall;
var
  vMouseInfo: PMouseHookStruct;
begin
  if ACode < 0 then
    Result := CallNextHookEx(Data^.MouseHook, ACode, WParam, LParam)
  else
  begin
    vMouseInfo := PMouseHookStruct(Pointer(LParam));
    PostMessage(Data^.AppHandle, WM_CUSTOM_MOUSE, vMouseInfo^.pt.X, vMouseInfo^.pt.Y);
    // we dont want to block the mouse messages
    Result := CallNextHookEx(nil, ACode, WParam, LParam);
  end;
end;

在您的钩子函数中：

• ACode取决于钩子的类型并指示活动

• wParam 和 lParam 具有特定于事件的含义

要传递消息，您应该调用 CallNextHookEx - 但是对于某些钩子，该消息将无论如何都要传承下去。

挂钩可以安装为全局挂钩 - 这意味着它们拦截与调用线程在同一桌面/WinStation 中运行的所有线程上的消息。因此，例如，如果您有多个通过 RD 连接的用户，则该挂钩仅特定于其中一个桌面。