HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Egér gombok lenyomásának szimulációja
Példaprogram letöltése

3764 bájt

Ebben a példában arra keresünk megoldást, hogy miként lehet kiváltani az egér gombjának lenyomását anélkül, hogy hozzányúlnánk az egérhez. Ezáltal forráskódból vezérelhetjük, például egy Button komponens lenyomását, úgy hogy a lenyomott egérgombokat is azonosítani tudjuk.

A legelső lépés, hogy meg kell határoznunk annak az objektumnak a koordinátáit, amelyre kattintani szeretnénk. A mellékelt példában egy Button komponens lenyomását szimuláljuk, az egér mindhárom gombjával.
Az objektumnak bármely koordinátája jó, vehetjük például a közepét, az biztos. 
function TForm1.GetButton1Points: TPoint;
begin
  Result.x:=Button1.Left+(Button1.Width div 2);
  Result.y:=Button1.Top+(Button1.Height div 2);
end;
A meghatározott objektum koordinátákat át kell alakítanunk képernyő koordinátákká. Erre szolgál a ClientToScreen függvény. 
Pt:=GetButton1Points;
Pt:=ClientToScreen(Pt);
A képernyő koordinátákat át kell alakítanunk mickey-be. Ez a minimális egérelmozdulás egysége. 
Pt.x:=Round(Pt.x*(65535/Screen.Width));
Pt.y:=Round(Pt.y*(65535/Screen.Height));
Ezután az egeret a kiszámított koordinátájú pozícióra mozgatjuk. 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,Pt.x,Pt.y,0,0);
Végül kiváltjuk az egérgomb lenyomásának és felengedésének eseményeit. 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,Pt.x,Pt.y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,Pt.x,Pt.y,0,0);
Miután az egeret a Button komponens fölé vittük, majd kiváltottuk a lenyomás és a felengedés eseményeit, a számítógép ezt úgy értékeli, mintha a felhasználó kattintott volna a nyomógombra.
Ha felhasználjuk például a nyomógomb OnMouseUp eseményét, akkor azt is meghatározhatjuk, hogy melyik gomb lett lenyomva.
mouse_event
procedure mouse_event(
dwFlags,
dx,
dy,
dwData,
dwExtraInfo: DWORD
)
Egér események kiváltására szolgál.
Paraméterek
dwFlags
Az esemény típusa. Az alábbi értékek kombinációja lehet.
Érték Jelentése
MOUSEEVENTF_ABSOLUTE Ha használjuk ezt az értéket, akkor az egérelmozdulás értéke a dx és dy paraméterekben relatív, ha nem használjuk, akkor abszolút érték.
MOUSEEVENTF_MOVE Az egér elmozdítása.
MOUSEEVENTF_LEFTDOWN Bal gomb lenyomása.
MOUSEEVENTF_LEFTUP Bal gomb felengedése.
MOUSEEVENTF_RIGHTDOWN Jobb gomb lenyomása.
MOUSEEVENTF_RIGHTUP Jobb gomb felengedése.
MOUSEEVENTF_MIDDLEDOWN Középső gomb lenyomása.
MOUSEEVENTF_MIDDLEUP Középső gomb felengedése.
MOUSEEVENTF_WHEEL Csak NT-nél. Az egér görgőjének elmozdítása.
dx
Az egérkurzor X koordinátája, vagy elmozdulása.
dy
Az egérkurzor Y koordinátája, vagy elmozdulása.
dwData
Ha a dwFlags-ben a MOUSEEVENTF_WHEEL eseményt használjuk, akkor ez a paraméter adja meg a görgő elmozdulásának mértékét. Minden más esetben itt 0 értéknek kell szerepelnie.
dwExtraInfo: DWORD
Extra információ.

Cikksorozat

#IDKategóriaCikk címeSorozat
2591WindowsTippek és trükkök - RAS - Modem csengetési szám állítása1. rész
2622WindowsTippek és trükkök - Program futtatása más felhasználóként2. rész
2640WindowsA Windows ikonméretének megváltoztatása és Windows 2000 Asztaltémák3. rész
2657WindowsTippek és trükkök - Internet Explorer4. rész
2667WindowsTippek és trükkök5. rész
2684WindowsAlapértelmezések állítása, telepítési fájlok helye, intéző nézetek6. rész
2696WindowsBiztonsági trükkök7. rész
2702WindowsWindows XP trükkök8. rész
2729WindowsWindows 2000 és XP tippek, trükkök9. rész
2757WindowsRegistry trükkök10. rész
2784WindowsTippek, trükkök11. rész
2829WindowsTippek, trükkök12. rész
2889WindowsWindows XP tippek13. rész
2909WindowsTippek Windows XP-hez14. rész
2919WindowsWindows tippek15. rész
2924WindowsWindows tippek16. rész
2963WindowsWindows tippek17. rész
2973WindowsWindows Tippek18. rész
2981WindowsWindows tippek19. rész
2990WindowsTippek-trükkök20. rész
3027WindowsIIS tippek21. rész
3034WindowsWindows XP tippek-trükkök22. rész
3088WindowsWindows 2000/XP tippek, trükkök23. rész
3133WindowsWindows XP tippcsokor24. rész
3140WindowsWindows XP tippek, trükkök25. rész
3152WindowsXP és IIS tippek - trükkök26. rész
3158WindowsWindows XP tippek, trükkök27. rész
3168WindowsTippek, trükkök28. rész
3170WindowsRegistry trükkök29. rész
3179WindowsTippek, trükkök30. rész
3197WindowsWindows XP tippek, trükkök31. rész
3205WindowsTippek, trükkök32. rész
3214WindowsTippek, trükkök33. rész
3223WindowsTippek, trükkök34. rész
3233WindowsTippek, trükkök35. rész
3271WindowsTippek, trükkök36. rész
3307WindowsTippek, trükkök37. rész
3370WindowsTippek, trükkök38. rész
3399WindowsTippek, trükkök39. rész
3510WindowsTippek, trükkök40. rész
3611WindowsHardverrel kapcsolatos tippek, trükkök41. rész
3668WindowsRegistry trükkök42. rész
3711WindowsTippek, trükkök43. rész
3771WindowsTippek, trükkök44. rész
3801WindowsTippek, trükkök45. rész
3831WindowsTippek, trükkök46. rész
3891WindowsTippek, trükkök47. rész
3921WindowsTippek, trükkök48. rész
3981WindowsTippek, trükkök49. rész
4041WindowsTippek, trükkök50. rész
4071WindowsTippek, trükkök51. rész
4151WindowsTippek, trükkök52. rész
4171C#Tippek, trükkök53. rész
4211WindowsTippek, trükkök54. rész
4251WindowsTippek, trükkök55. rész
4281WindowsTippek, trükkök56. rész
3589DelphiTippek, trükkök57. rész
3718DelphiTippek, trükkök58. rész


Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 239. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |