SetCapture怎么失效了??(20分)

H

Happy3X

Unregistered / Unconfirmed
GUEST, unregistred user!
Form Create 事件里
SetCapture(form1.handle);
Form MouseMove事件里
procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
var
p:TPoint;
begin
GetCursorPos(p);
caption:=inttostr(p.X);
end;
form Destory事件里
procedure TForm1.FormDestroy(Sender: TObject);
begin
releasecapture;
end;

/////////////////////////
我的鼠标移出窗体后并不能捕捉到位置?(Caption标题不变)
 
出了窗口就不行了。
m$的帮助文档不是这么说的,
投诉m$吧[:(!]
 
不需要SetCapture(form1.handle);
我明白你用SetCapture的意思了,
试了一下,没问题。
 
setcapture 的确不好用。做个鼠标钩子吧。
 
多人接受答案了。
 

Similar threads

I
回复
0
查看
508
import
I
I
回复
0
查看
655
import
I
顶部