以 ClipCursor 限制滑鼠只能出沒於指定區域.
// 先放兩個 TButton 元件, 各自的 OnClick 事件:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect rtButton2 = Button2->BoundsRect;
// 換算成螢幕座標
MapWindowPoints(Handle, 0, (LPPOINT)&rtButton2, 2);
ClipCursor((LPRECT)&rtButton2); // 限制滑鼠移動區域
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TRect rtScreen = Rect(0, 0, Screen->Width, Screen->Height);
ClipCursor((LPRECT)&rtScreen);
}