|
|
Információgyűjtő komponens az egérről
|
|
Példaprogram letöltése
4915 bájt
|
Készítsünk most egy olyan komponenst, mely számos információt gyűjt össze az egérről. A komponenst elhelyezve egy Form-on annak property-jeiből rögtön kiolvashatjuk az egérrel kapcsolatos információkat.
A mellékelt példaprogram megnyitása előtt a MouseInfo.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens Form-on történő elhelyezése után a property-ken keresztül máris kiolvashatók az egérrel kapcsolatos információk, melyek az alábbiak:
- WheelScrollLines - az egér görgőjének egy tekerése ennyi sor scrollozását eredményezi
- WheelPresent - az egér rendelkezik görgővel
- Vanish - Win Me, Win XP-től kezdve használható, értéke igaz, ha adatbeviteli gépelés közben az egér kurzor automatikusan rejtetté válik
- Sonar - Win Me, Win XP-től kezdve használható, értéke igaz, ha a Ctrl gomb lenyomása és felengedése után az egér kurzor aktuális pozíciójának jelzése folyamatosan csökkenő sugarú körökkel jelzésre kerül
- ClickLock - Win Me, Win XP-től kezdve használható, értéke igaz, ha az egér kattintás lock-olva lesz
- ClickLockTime - Win Me, Win XP-től kezdve használható, értéke az egér lock-olás időtartamát adja meg
- HoverHeight - Win 98-tól kezdve használható, értéke az egér maximális elmozdulását tárolja függőleges mértékben, melyen belül a WM_MOUSEHOVER üzenet még létrejöhet
- HoverWidth - Win 98-tól kezdve használható, értéke az egér maximális elmozdulását tárolja vízszintes mértékben, melyen belül a WM_MOUSEHOVER üzenet még létrejöhet
- HoverTime - Win 98-tól kezdve használható, értéke a WM_MOUSEHOVER üzenet létrejötte előtt minimális eltelt időt határozza meg
- Speed - Win 98, Win 2000-től kezdve használható, értéke az egér aktuális sebességét adja meg 1 és 20 között
- Trails - Win 95, Win XP-től kezdve használható, értéke az egér a képernyőn történő mozgásának nyomon követésének engedélyezését jelzi
- ButtonCount - az egér gombjainak száma
- SwapButton - igaz, ha az egér jobb és bal gombja fel lettek cserelve
A fenti értékek meghatározására a komponens konstruktorában kerül sor, melyhez két módszert használunk. Az egyik a SystemParametersInfo függvény használata.
SystemParametersInfo(SPI_GETMOUSETRAILS, 0, @i, 0);
FTrails:=i;
A másik a GetSystemMetrics függvény használata. E két függvénnyel minden fenti érték lekérdezhető.
FButtonCount:=GetSystemMetrics(SM_CMOUSEBUTTONS);
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2002 évkönyv 567. 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!
|