我想问一下,在软件内部鼠标移动是怎么样的?
我知道外部是用这个。
var
a:tpoint;
begin
getcursorpos(a);
edit1.Text :=inttostr(a.X );
edit2.Text :=inttostr(a.Y);
end;可内部呢。就是不让软件移出软件外,无论软件的窗口去到哪里。一点按钮都不可以移到外面!!
我知道外部是用这个。
var
a:tpoint;
begin
getcursorpos(a);
edit1.Text :=inttostr(a.X );
edit2.Text :=inttostr(a.Y);
end;可内部呢。就是不让软件移出软件外,无论软件的窗口去到哪里。一点按钮都不可以移到外面!!
getcursorpos(a);
a := ScreenToClient(a);