如何使用 MouseMove 事件在面板内移动标签？

Question

我知道这应该非常简单，尤其是考虑到所有在线信息和示例代码，但由于某种原因，我无法让它工作。

我在 winform 上有一个标签和一个面板。我希望标签在进入面板并在面板内移动时只跟随鼠标指针。

我让它工作了，但它的位置完全改变了，当你移动 winform 时它总是在改变。

这里是 MouseMove 和其他事件：

constructor MainForm;
begin
  InitializeComponent();
  label2.Visible:=false;
end;

method MainForm.panel1_MouseMove(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
begin
  //label2.Location := panel1.PointToScreen(e.Location);
  label2.Location := self.PointToScreen(e.Location);
  label2.Invalidate;
end;

method MainForm.panel1_MouseEnter(sender: System.Object; e: System.EventArgs);
begin
  label2.Visible:=true;
end;

method MainForm.panel1_MouseLeave(sender: System.Object; e: System.EventArgs);
begin
  label2.Visible:=false;
end;

更新按照 larstech 的建议，我修改了代码，但标签仍然显示在框外，如下图所示。

谢谢，

Answer 1

我不知道delphi-prism，但不就是这样吗：

label2.Location := e.Location;

由于 Label 不是子控件，请尝试以下操作：

label2.Location := new Point(panel1.Left + e.Location.X, panel1.Top + e.Location.Y);

显然，我的语法可能不正确。

如果您只是想移动工具提示，这在 c# 中有效：

private ToolTip _tips = new ToolTip();

private void panel1_MouseMove(object sender, MouseEventArgs e) {
  _tips.Show("test", panel1, e.Location.X + 10, e.Location.Y + 10);
}