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标题不变)
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标题不变)