已解決哪種情況下初始化程序不起作用?

提問者：局外人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;複製代碼