如題，謝謝！

var pt: TPoint; 
begin 
   pt:= Form1.ClientToScreen(Point(5,5)); 
   SetCursorpos( pt.x, pt.y ); 
end; 

--- 每個人都是一本書

可以宣告一個Tmouse 的東西來用 ex var post : TPoint ; begin post.x := 100 ; post.y := 100 ; with TMouse.Create do begin try CursorPos := post ; //指定mouse 要去的位置 finally Free; end; end; ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------