精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>鼠标>>将鼠标锁定在一定范围

主题:将鼠标锁定在一定范围
发信人: derago(魔影)
整理人: teleme(2001-02-01 20:11:52), 站内信件
如何将鼠标锁定在一定的范围内呢?请在Form中放置二个 Button,  然後分别为这两个按钮定义 OnClick 响应事件如下:

// 限制
procedure TForm1.Button1Click(Sender: TObject);
var
    rtButton2: TRect;
begin
    rtButton2 := Button2.BoundsRect;
    MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
    ClipCursor(@rtButton2); // 限制鼠标移动区域
end;

// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
    rtScreen: TRect;
begin
    rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
    ClipCursor(@rtScreen);
end; 
摘自delphifly

[关闭][返回]