Apăsați programat mouse-ul
Bună ziua, maeștri!
Cum să îndrept programatic mouse-ul la un buton și să simulez să dau clic pe butonul stâng al mouse-ului pentru a declanșa un manipulator de butoane?
Mulțumesc
mouse_event ()
dar puteți, de asemenea, Button.Click ()
> nou # xA0; (05/02/07 18:00) # xA0;
> Cum să mișcați programatic mouse-ul peste un buton și simulați apăsarea
> butonul stânga al mouse-ului pentru a declanșa manipularea
IMHO: este mai ușor să faceți upgrade mouse-ul:
1. instalați driver-ul de pe buton
2. cumpărați-i un buton de clic (stânga,
dar puteți chiar și chinezii).
procedura SetMousePos (Evenimentul Const, DWord; Const X, Y. Integer);
începe
Mouse_Event (eveniment sau MOUSEEVENTF_ABSOLUTE,
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; Rotundă ((MaxWord + 1) / GetScreenWidth * X),
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; Runda ((MaxWord + 1) / GetScreenHeight * Y),
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; 0, 0);
se încheie;
procedura MouseClick (Const X, Y. DWord);
începe
SetMousePos (MOUSEEVENTF_MOVE, # xA0; # xA0; X, Y);
SetMousePos (MOUSEEVENTF_LEFTDOWN, X, Y);
Somnul (5);
SetMousePos (MOUSEEVENTF_LEFTUP, # xA0; X, Y);
se încheie;
funcția GetScreenHeight. integer;
începe
Rezultat: = GetSystemMetrics (SM_CYSCREEN);
se încheie;
funcția GetScreenWidth. integer;
începe
Rezultat: = GetSystemMetrics (SM_CXSCREEN);
se încheie;
P.S.
"SetMousePos" - numele oarecum nu reflectă esența, bine, așa cum el a numit%)
lui Leonid Trojanovski
multumesc pentru sfatul :)))
dar nu am nevoie de ea
tocmai a venit un student cu o sarcină pentru subiect, și lucrez mai mult cu baza de date și astfel de trucuri cu mouse-ul nu sunt necesare pentru mine, dar ceva trebuie să-i fie predat, asta-i ciudățenii - profesorii și-au pierdut complet viața :)
la Rial
Mulțumesc!
Mă voi ocupa de codul vostru
> [4] nou # xA0; (05/02/07 19:47)
iată, predicatorul monstru este destul
> din viata a venit off :)
Lasa-ma insolenta, observand munca
cu DB - cea mai mare separare de viață%)
Totul este plictisitor si monoton acolo :)
la Rial
"Boris, te înșeli" :)
Baze de date - aceasta este viața noastră practic, unde fără ele :)
Articole similare
Trimiteți-le prietenilor: