{
使用Windows API函數 ClipCursor, 可以限制滑鼠在螢幕中指定的矩形範圍裡移動:
}

 

//限制滑鼠在表單中的移動
//並在按一下表單後釋放滑鼠
procedure TForm1.FormCreate(Sender: TObject);
var r : TRect;
begin
//加限制前先把滑鼠移動到指定的矩形範圍裡
r := BoundsRect;
ClipCursor(@R);
end;
arrow
arrow
    全站熱搜

    戮克 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄