Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
請問有何api可以移動游標?例如移到一個control之上,以方便使用.
您可以用 SetCursorPos() 這個 API 指定 Mouse Pointer 的位置, 以下有一個寫好的程序:
procedure MoveMouseIntoControl(AWinControl: TWincontrol); var rtControl: TRect; begin rtControl := AWinControl.BoundsRect; MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2); SetCursorPos(rtControl.Left + (rtControl.Right - rtControl.Left) div 2, rtControl.Top + (rtControl.Bottom - rtControl.Top) div 2); end; procedure TForm1.Button1Click(Sender: TObject); begin MoveMouseIntoControl(Button1); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |