procedure TMainForm.LockMachine;
var
r:TRect;
begin
r:=rect(MainForm.Left,MainForm.Top,MainForm.Left+MainForm.Width,MainForm.Top+MainForm.Height);
clipCursor(@r);
end;
delphi控制鼠标在程序界面范围内
最新推荐文章于 2020-09-12 21:07:00 发布
procedure TMainForm.LockMachine;
var
r:TRect;
begin
r:=rect(MainForm.Left,MainForm.Top,MainForm.Left+MainForm.Width,MainForm.Top+MainForm.Height);
clipCursor(@r);
end;