Programozottan nyomja meg az egeret
Programozottan nyomja meg az egeret
Jó napot, mesterek!
Hogyan programozhattam meg egy egérgombot egy gombon, és szimulálhatom a bal egérgombot a gombkezelő aktiválásához?
Köszönöm
mouse_event ()
de akkor is Button.Click ()
> newby # xA0; (05/02/07 18:00) # xA0;
> Hogyan lehet programozni az egeret egy gomb fölé és szimulálni a nyomást
> bal egérgombot a kezelő aktiválásához
IMHO: könnyebb frissíteni az egeret:
1. telepítse a homing vezetőjét a gombra
2. vásárolni neki egy kattintás gombot (balra,
de még kínai is).
eljárás SetMousePos (Const Event, DWord, Const X, Y. Integer);
kezdődik
Mouse_Event (Esemény vagy MOUSEEVENTF_ABSOLUTE,
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; Kerek ((MaxWord + 1) / GetScreenWidth * X),
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; Kerek ((MaxWord + 1) / GetScreenHeight * Y),
# xA0; # xA0; # xA0; # xA0; # xA0; # xA0; 0, 0);
végén;
MouseClick eljárás (Const X, Y. DWord);
kezdődik
SetMousePos (MOUSEEVENTF_MOVE, # xA0; # xA0; X, Y);
SetMousePos (MOUSEEVENTF_LEFTDOWN, X, Y);
Alvás (5);
SetMousePos (MOUSEEVENTF_LEFTUP, # xA0; X, Y);
végén;
funkció GetScreenHeight. integer;
kezdődik
Eredmény: = GetSystemMetrics (SM_CYSCREEN);
végén;
funkció GetScreenWidth. integer;
kezdődik
Eredmény: = GetSystemMetrics (SM_CXSCREEN);
végén;
Ui
"SetMousePos" - a név némileg nem tükrözi a lényeget, nos, ahogy ő nevezte%)
Leonid Troyanovszkijhoz
köszönet a tanácsért :)))
de nekem nincs rá szükségem
csak egy diák vett részt a témával, és leginkább az adatbázissal dolgozom, és az egérrel kapcsolatos trükkök nem szükségesek nekem, de valamit átadni kell neki, ez a freaks - a tanárok teljesen elvesztették az életüket :)
Rialba
Köszönöm!
Foglalkozom a kóddal
> [4] newby # xA0; (05/02/07 19:47)
íme, a szörny-prédikátor elég
> az életből jött ki :)
Hadd leleplezzek, észrevéve, hogy a munka
a DB-vel - az élet legnagyobb elkülönítése%)
Minden unalmas és monoton ott :)
Rialba
"Boris, tévedsz" :)
Adatbázisok - ez alapvetően életünk, ahol nélkülük :)