我做了个控件拖动的程序,但拖到边上时希望鼠标不能移出我正在拖动的控件?怎么实现?

Question

不能锁定鼠标区域吗？或者如果鼠标移动超出了范围，但shape的坐标只设置到边界……可能我没有明白你的意思。我现在做个东东，不知道怎么做了，   帮我看个帖子好吗？http://www.csdn.net/expert/topic/442/442524.shtm

Answer 1

想知道你的shape是怎么作到可以用鼠标拖动的

Answer 2

用clipcursor锁住鼠标,例子
procedure TForm1.Button1Click(Sender: TObject);
var ls:trect;
begin
with scrollbar1 do begin
ls.Left:=left+form1.left;
ls.Top:=top+form1.top+20;
ls.Right:=ls.left+width;
ls.Bottom:=ls.top+height;
end;
clipcursor(@ls);
end;
当不拖动的时候，要clipcursor(nil)解除鼠标区域锁定

Answer 3

可以用ClipCursor
是Windows API,具体用法可以查Delphi的帮助!