Delphi - Egér mozgatása billentyűzetről

forráskód letöltése
Ebből a példából megtudhatjuk, hogy miként mozgathatjuk az egér kurzort a nyíl billentyűk segítségével. Ebből a példából megtudhatjuk, hogy miként mozgathatjuk az egér kurzort a nyíl billentyűk segítségével.


Ennek megvalósításához két függvényt kell felhasználnunk. Az egyik a GetCursorPos lesz, melynek segítségével minden billentyű lenyomásakor lekérdezzük az egér aktuális koordinátáit, majd a SetCursorPos függvény segítségével beállítjuk az új pozíciót.

Hogy mi lesz az új pozíció, azt úgy határozzuk meg, hogy ellenőrizzük melyik nyíl billentyű lett lenyomva és ennek megfelelően növeljük, illetve csökkentjük az x, y koordinátát.

A példában még azt is meg valósítottuk, hogy ha a Ctrl billentyűt is nyomva tartjuk a nyilak mellett, akkor nem egy pixelenként mozog az egér, hanem tízzel, ezáltal gyorsabb mozgást teszünk lehetővé.