哪种情况下初始化程序不起作用?

提问者：局外人oc丶  |  浏览 次  |  提问时间：2017-03-24  |  回答数量：2

如题!为什么直接初始化，鼠标移动限制就不起作用呢？还有哪种情况下必须得初始化!不然程序无法使用!代码1:只有按钮点击，鼠标才能被限制在窗体范围内无法移动！//限制鼠标移动范围procedure TForm1.Button1Click(Sender: TObject);varRECT :TRECT;beginGetWindowRect(Form1.Handle,RECT);ClipCursor(@RECT);end;复制代码代码2:如果直接初始化，下面代码将不会起作用！procedure TForm1.FormCreate(Sender: TObject);varRECT :TRECT;beginGetWindowRect(Form1.Handle,RECT);ClipCursor(@RECT);end;复制代码