滑鼠鎖定

今天來跟大家分享鎖定滑鼠
其實只要一點點小步驟就可以了，最後程式按ESC就可以離開。
放一個TTimer控件到表單上
屬性：
Enabled:True
Interval:200
事件：
Form的KeyPress
Timer點兩下
程式碼加入：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then
    Application.Terminate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  setcursorpos(300,300);
end;