線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2514
推到 Plurk!
推到 Facebook!

請問滑鼠模擬滾輪...

尚未結案
stockton2
一般會員


發表:3
回覆:2
積分:1
註冊:2003-06-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-18 15:05:21 IP:140.131.xxx.xxx 未訂閱
請問各位大大... 該如何模擬滑鼠滾輪ㄋ.... 我知道事件裡有OnMouseWheelDown和OnMouseWheelUp這兩個可以使用... 可是...卻不知道用什麼函數模擬...例如: 模擬滑鼠按左鍵: mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// click down mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);// click down    請教各位大大我該如何寫ㄋ....
gemi0305
版主


發表:81
回覆:564
積分:629
註冊:2003-05-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-19 13:03:39 IP:210.66.xxx.xxx 未訂閱
這裡有一些資料,小弟我只有大概看一下而已, 但沒去實作,有空大家一起研究吧 >> > >
gemi0305
版主


發表:81
回覆:564
積分:629
註冊:2003-05-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-19 18:07:37 IP:210.66.xxx.xxx 未訂閱
小試了一下,利用RichEdit來試,把ScrollBar叫出來, 再用這個小程式,按滑鼠左、右鍵~ 但是還沒辨法完全駕馭它~ 晚點有空再來試 < class="code"> void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { switch (Button) { case mbLeft: mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0); break; case mbRight: mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0); break; } } 國泰平安 發表人 - Gemi0305 於 2003/09/19 18:20:45
gemi0305
版主


發表:81
回覆:564
積分:629
註冊:2003-05-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-09-20 00:14:58 IP:61.224.xxx.xxx 未訂閱
經過再一次的測試,我也不好意思再灌了水~~ 所以就是最後的測試。 我用 class="code"> void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { switch (Button) { case mbLeft: if(CheckBox1->Checked) mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0); //字型變大 else mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0); //字型變小 break; case mbRight: if(CheckBox1->Checked) mouse_event(MOUSEEVENTF_WHEEL,0,0,120,0); //ScrollBar往上翻 else mouse_event(MOUSEEVENTF_WHEEL,0,0,-120,0); //ScrollBar往下翻 break; } } 發現,原來搭了不同鍵,其效果就會不同, 像左鍵是變化字型,而右鍵是滾動ScrollBar~ 這個在Online Help沒有說到,真是暗藏玄機~ 各位如果有興趣,可以在不同的元件下試試 國泰平安
系統時間:2024-05-07 5:09:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!