限制鼠标在窗体中的移动

减小字体

增大字体作者：佚名来源：本站整理发布时间：2009-03-16 20:04:14

{
使用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;

文章评论评论内容只代表网友观点，与本站立场无关！

评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

栏目导航

本类热门阅览

按字母检索
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z

按声母检索
A
B
C
D
E
F
G
H
J
K
L
M
N
O
P
Q
R
S
T
W
X
Y
Z
数字
符号

限制鼠标在窗体中的移动

Tags：

文章评论评论内容只代表网友观点，与本站立场无关！

栏目导航

本类热门阅览

相关文章