請問各位先進，我想要控制滑鼠的位置： 比如說，使用者按下螢幕上left:=500 top:=20 的位置(Button1) 但是我想讓它變成 left:=250 top:=20 的新位置(Button2) ps:我說的這兩個位置各有一個按鈕物件 也就是說使用者本來是按button1的位置 但是經過我改變它的位置之後，就變成是按了button2的物件 謝謝指教

引言: 請問各位先進，我想要控制滑鼠的位置： 比如說，使用者按下螢幕上left:=500 top:=20 的位置(Button1) 但是我想讓它變成 left:=250 top:=20 的新位置(Button2) ps:我說的這兩個位置各有一個按鈕物件 也就是說使用者本來是按button1的位置 但是經過我改變它的位置之後，就變成是按了button2的物件 謝謝指教

在Button1的OnClick事件做Button2.Click;不是比較簡單嗎？

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

GetCursorPos -> 取得滑鼠位置 SetCursorPos -> 設定滑鼠位置 這應該就是你要的。 不過你即然要這樣做，要不要考慮直接在Button1 呼叫Button2算了… ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

[quote] GetCursorPos -> 取得滑鼠位置 SetCursorPos -> 設定滑鼠位置 這應該就是你要的。 不過你即然要這樣做，要不要考慮直接在Button1 呼叫Button2算了… -- 不好意思，表達不夠明白 Ps:我按下滑鼠左鍵之前並不知道按下去的地方是否有物件 且也不知道改變位置後的游標是否有物件，如果有物件則會觸發哪個地方的物件的click或者OnMouseDown等事件。

GetCursorPos and SetCursorPos 後再加 Mouse_Event 做 Mouse 按下的動作. 希望有幫助...

引言: GetCursorPos and SetCursorPos 後再加 Mouse_Event 做 Mouse 按下的動作. 希望有幫助...

哪請問要如何判斷游標所在的地方有物件呢？

我貼個相關的資料給你參考… ^^ http://bbs.ee.ntu.edu.tw/boards/Delphi/5/4/3.html [INLINE] 移動滑鼠指標到指定的元件上方 請問有何api可以移動游標？例如移到一個control之上,以方便使用. [INLINE] 您可以用 SetCursorPos() 這個 API 指定 Mouse Pointer 的位置, 以下有 一個寫好的程序: [code] 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; ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

引言: 我貼個相關的資料給你參考… ^^ http://bbs.ee.ntu.edu.tw/boards/Delphi/5/4/3.html [INLINE] 移動滑鼠指標到指定的元件上方

-- 謝謝大家的指教！ 另外一個問題我如何知道位於游標之下的地方是哪一個物件呢？