如何将鼠标锁定在一定的范围内呢?
请在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;
请在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;
解决方案 »
- 请问高手FastReport与cxgrid冲突问题
- 短信收发怪问题
- 数据库中的数据传输
- 请问一个3层结构的程序客户端连接不上中间层的问题???急 急 急
- 多次showmodal一个窗体就会出问题,主窗体不会立即显示,如何解决?附上问题代码
- 很简单的问题
- 请问排序的问题
- DELPHI7中login form在用showmodal時報錯?!
- 哪里有INSTALLSHIELD FOR DELPHI7下载啊?哪们高人知道?
- 各位大虾,在DELPHI下可以达到协议级别的编程吗?我想用DELPHI做TCP、IP的编程
- 可不可以在一个线程的Execute中Create另外一个线程
- 改变报表中显示的小数位数的程序方法
var
MyRgn: HRGN;
begin
MyRgn:=CreateRectRgn(0,0,100,100);
SelectClipRgn(Handle,MyRgn);
end;
放
SelectClipRgn(handle,0);
请在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;
你们是不是用了api函数啊?怎么在delphi的帮助里有的都没有找到