如何让鼠标禁止进入一个控件

Question

比如，我在窗体上放一个pannel，如何使鼠标禁止进入到pannel的区域？很急

Answer 1

procedure TfrmMain.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel1.Cursor := crNone;  // Hehehe
end;

Answer 2

也可以使用API函数ClipCursor来达到这个效果！

Answer 3

嗬嗬，就是这个，在OnMouseMove事件里加入把鼠标指针移动的代码也可以。

Answer 4

在onmousemove 中使用setcursorpos api将鼠标移出

Answer 5

这样做，完全可以！记得给分啊！procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
setCursorPos(Panel1.Left,Panel1.top);
end;