超難問題首部曲--滑鼠動作 |
|
|
|
kynix
初階會員   發表：37 回覆：100 積分：37 註冊：2002-06-01 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 請問有沒有辦法是滑鼠照程式意思移動，如左右上下移，左鍵一下、兩下..等 而且如果移到其他圖示，如我的電腦，程式命令滑鼠按兩下既可啟動它(不是用程式去執行它，而是用滑鼠) 世界上最美麗的東西就是真實的自己~~~先參考本站相關文章: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=285 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=284 ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
linkolong
一般會員  發表：4 回覆：35 積分：12 註冊：2002-04-23 發送簡訊給我 |
你說的好像是QMacro.exe(外掛程式)
About網站有一個範例,如下
procedure TForm1.Button1Click(Sender: TObject);
var
Pt : TPoint;
begin
Application.ProcessMessages;
{Get the point in the center of Button 2}
Pt.x := Button2.Left (Button2.Width div 2);
Pt.y := Button2.Top (Button2.Height div 2);
{Convert Pt to screen coordinates and Mickeys}
Pt := ClientToScreen(Pt);
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
{Simulate the mouse move}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
MOUSEEVENTF_MOVE,
Pt.x, Pt.y, 0, 0);
{Simulate the left mouse button down}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
MOUSEEVENTF_LEFTDOWN,
Pt.x, Pt.y, 0, 0);;
{Simulate the left mouse button up}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
MOUSEEVENTF_LEFTUP,
Pt.x, Pt.y, 0, 0);;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(Button 2 clicked)
end;
|
發表時間：2002-06-01 22:02:09
IP:61.225.xxx.xxx 未訂閱
系統時間：2024-04-27 6:28:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |