Delphi，如何在鼠标移动时显示覆盖控件

Question

我使用 Delphi 7，我有一个 TFrame（由 TForm 托管），三个面板横跨整个表面，呈“倒 T”形布局。 面板应该是可调整大小的，所以我可以使用 2 个分离器，但我想提供更好的用户体验：我想在 T 形连接处有一个“尺寸夹”。 此“手柄”应仅在用户悬停连接区域时出现。

所以这是我的问题：在鼠标移动时让控件显示在任何其他控件之上的最佳方式是什么？ TFrame.OnMouseMove 不要被调用（显然），因为里面有面板，可能还有其他任何类型的控件。 我也强烈希望将所有代码保留在框架内。

我看到了 2 个解决方案：

1. 安装本地鼠标钩并使用它。但可能有一些 性能问题（或不是？）
2. 内部处理TApplication.OnMessage 框架，但添加一些其他代码以模拟“链” 的事件处理程序。这是因为应用程序的其他部分 可能需要为自己的目的处理 TApplication.OnMessage。

还有什么想法吗？

谢谢

Answer 1

要为整个框架制作鼠标移动事件通知程序，无论悬停哪个子控件，您都可以为WM_SETCURSOR 消息编写一个处理程序，正如我在this post 中从TOndrej 那里学到的那样。然后，您可以从此类事件处理程序中确定悬停哪个控件并将其置于前面。

请注意，我在这里犯了很常见的错误。 GetMessagePos 结果不能以这种方式读取。它甚至在文档中明确提到。我没有 Windows SDK 来查看 MAKEPOINTS 宏，所以我稍后会修复这个问题：

type
  TFrame1 = class(TFrame)
    // there are many controls here; just pretend :-)
  private
    procedure WMSetCursor(var Msg: TWMSetCursor); message WM_SETCURSOR;
  end;

implementation

procedure TFrame1.WMSetCursor(var Msg: TWMSetCursor);
var
  MsgPos: DWORD;
  Control: TWinControl;
begin
  inherited;
  MsgPos := GetMessagePos;
  Control := FindVCLWindow(Point(LoWord(MsgPos), HiWord(MsgPos)));
  if Assigned(Control) then
    Control.BringToFront;
end;

Answer 2

我将发布这个自我回答只是因为它有效并且在某些情况下可能有用，但我将 TLama 标记为最佳答案。
这是问题的解决方案2）：

TMyFrame = class(TFrame)
  // ...design time stuff...
private
  FMouseHovering: Boolean;
  FPreviousOnAppMessage: TMessageEvent;
  procedure DoOnAppMessage(var Msg: TMsg; var Handled: Boolean);
protected
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;


implementation

constructor TMyFrame.Create(AOwner: TComponent);
begin
  inherited;
  FMouseHovering := False;
  FPreviousOnAppMessage := Application.OnMessage;
  Application.OnMessage := DoOnAppMessage;
end;

destructor TMyFrame.Destroy;
begin
  Application.OnMessage := FPreviousOnAppMessage;
  inherited;
end;

procedure TRiascoFrame.CMMouseEnter(var Message: TMessage);
begin
  FMouseHovering := True;
end;

procedure TRiascoFrame.CMMouseLeave(var Message: TMessage);
begin
  FMouseHovering := False;
end;

procedure TMyFrame.DoOnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_MOUSEMOVE) and FMouseHovering then
    DoHandleMouseMove(Msg.hwnd, Integer(LoWord(Msg.lParam)), Integer(HiWord(Msg.lParam)));
  if Assigned(FPreviousOnAppMessage) then
    FPreviousOnAppMessage(Msg, Handled);
end;

procedure TMyFrame.DoHandleMouseMove(hWnd: HWND; X, Y: Integer);
var
  ClientPoint: TPoint;
begin
  ClientPoint := Point(X, Y);
  Windows.ClientToScreen(hwnd, ClientPoint);
  Windows.ScreenToClient(Self.Handle, ClientPoint);
  if PtInRect(ClientRect, ClientPoint) then
  begin
    // ...do something...
  end;
end;