マウスの動く範囲を制限するには

解決

---

マウスの動く範囲を制限したいのですがどうすればいいですか
FormMouseMoveを使うと反応が遅いようです

編集    削除

---

スクリーン座標を使って ClipCursor() という API でできます。

    { Private 宣言 }
  public
    Flag:Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormClick(Sender: TObject);
var
  r:TRect;
  LeftTop,RightBottom:TPoint;
begin
  if Flag then
    ClipCursor(nil)
  else begin
    LeftTop := ClientToScreen(Point(0,0));
    RightBottom := ClientToScreen(Point(ClientWidth,ClientHeight));
    r := Rect(LeftTop.x,LeftTop.y,RightBottom.x,RightBottom.y);
    ClipCursor(@r);
  end;
  Flag := not Flag;
end;

このコードは、Form1 をクリックするとカーソルが Form1 のクライアント領域
から出られなくなります。もう一度クリックすると元の状態に戻ります。

編集    削除

---

ありがとうございます
うまくできました

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。