| 截止2004年12月16日 |
本站源码总量RAR压缩为 4,206,733 KB。其中免费源码为 1,124,495 KB，商业源码为 3,082,238 KB！
| C/C++ |
129,555 KB |
| Delphi |
1,258,381 KB |
| Java |
120,937 KB |
| .Net |
36,886 KB |
| PowerBuilder |
954,525 KB |
| Visual Basic |
923,454 KB |
| ASP |
259,795 KB |
| JSP |
4,987 KB |
| 其他 |
94,723 KB |
|
|
| 限制鼠标在窗体中的移动 |
|
{
使用Windows API函数 ClipCursor, 可以限制鼠标在屏幕中指定的矩形范围里移动:
}
//限制鼠标在窗体中的移动
//并在单击窗体后释放鼠标
procedure TForm1.FormCreate Sender: TObject);
var r : TRect;
begin
//加限制前先把鼠标移动到指定的矩形范围里
r := BoundsRect;
ClipCursor @R);
end;
procedure TForm1.FormClick Sender: TObject);
begin
//要释放鼠标
ClipCursor nil);
end;
|
| |
| 文章出处： |
|
发表时间：2004-12-23 16:55:24 |
| 共1条数据记录，分1页显示 上一页 < [1] > 下一页 |
|
