如何让鼠标移到面板上时出现面板？德尔菲

Question

当我将鼠标移到某个位置时，如何才能显示一个面板及其中的所有内容？

当我再次将其移开时，它会消失吗？

当它可见时执行此操作不是问题（除了淡出），我可以使用 onmouseleaves 执行此操作。

但是当它不可见时，如何使其可见呢？

谢谢

Answer 1

将面板放在另一个（空白）面板上。当您将鼠标移动到空白面板上时，使“神奇”面板显示出来。

---

编辑，因为我现在了解到 OP 在网络浏览器上有面板。我放置虚拟/空白面板的解决方案不再有效；干扰发送到 Web 浏览器的鼠标消息也不是一个好主意，因此这里有一个简单的方法来解决此问题。我正在使用 TTimer，其间隔设置为“100”，并且我正在汇集鼠标坐标。

procedure TForm25.Timer1Timer(Sender: TObject);
var PR: TRect; // Panel Rect (in screen coordinates)
    CP: TPoint; // Cursor Position (always in screen coordinates)
begin
  // Get the panel's coordinates and convert them to Screen coordinates.
  PR.TopLeft := Panel1.ClientToScreen(Panel1.ClientRect.TopLeft);
  PR.BottomRight := Panel1.ClientToScreen(Panel1.ClientRect.BottomRight);
  // Get the mouse cursor position
  CP := Mouse.CursorPos;
  // Is the cursor over the panel?
  if (CP.X >= PR.Left) and (CP.X <= PR.Right) and (CP.Y >= PR.Top) and (CP.Y <= PR.Bottom) then
    begin
      // Panel should be made visible
      Panel1.Visible := True;
    end
  else
    begin
      // Panel should be hidden
      Panel1.Visible := False;
    end;
end;

Answer 2

如果您的面板将出现在一个区域中，您可以捕获底层表单或父面板的鼠标移动事件，并检查它是否在您的不可见面板将出现的范围内

。 （伪代码）

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ((X > MyPanel.Left) and (Y > MyPanel.Top) and (X < mypanel.right) and 
  (Y < mypanel.bottom)) then
  begin
      mypanel.visible := true;
  end;
end;