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

提问者：局外人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;复制代码

已有2条答案

regina_缪斯

回答数：167 | 被采纳数：72

FormCreate时Form1.Handle还不存在

2017-03-24 14:26:47

dachanet

回答数：181 | 被采纳数：20

感谢版主,你的回答就是与众不同呀! (1)

2017-03-24 16:09:20