Hogyan kell használni a kurzorokat, delphisite

crZoomIn = 1;
crZoomOut = 2;
Képernyőn. Kurzorok # 91; crZoomIn # 93; : = LoadCursor # 40; hInstance, 'CURSOR_ZOOMIN' # 41; ;
Képernyőn. Kurzorok # 91; crZoomOut # 93; : = LoadCursor # 40; hInstance, 'CURSOR_ZOOMOUT' # 41; ;

A programnak rendelkeznie kell egy erőforrás fájllal, amely a megfelelő kurzorokhoz kapcsolódik, vagy a zölden egy meghatározott fájlnévvel helyettesítik (a programnak szintén mellékelni kell).

Ebben a cikkben számos módon lehet megtalálni a saját kurzorokat, beleértve az animációt is. [Ezek a fájlok a kiterjesztéssel .ani]
Például van egy fájl a .ani kiterjesztéssel és használni szeretné. Mindössze annyit kell tenned, hogy a fájlt ugyanabba a könyvtárba helyezzük, mint az EXE-t, majd írjuk be a következő kódot, mondjuk a gomb megnyomásával:

Képernyőn. Kurzorok # 91; 5 # 93; : = LoadCursorFromFile # 40; 'File.ani' # 41; ;

Képernyőn. Kurzor: = 5;

Itt a globális képernyőobjektum kurzor tulajdonsága kerül felhasználásra. Az alkalmazáshoz rendelkezésre álló kurzorok listáját tartalmazza. A kívánt pozíciójú index segítségével betöltjük a kurzort a fájlból. Ezután aktiválja a Kurzor tulajdonságot.
Ha van erőforrás-fájlja, akkor a dolgok eltérőek lesznek:
Tegye ezt a fájlt ugyanabba a könyvtárba, mint az exe. Ezután a modulban globális konstansot deklarálunk, például utána

Olyan lesz ez így:

Ezzel az állandóval egy új pozíciót tartunk fenn a globális képernyőelem Cursors tulajdonságában.
Ezután csatlakoztatjuk az erőforrás fájlt, azaz. ha azt Cursors.res, akkor utána hívják

// Aztán, mondjuk, a gombra kattintva írjuk a kódot:

Képernyőn. Kurzorok # 91; MyConst # 93; : = LoadCursor # 40; hInstance, 'MYCURSOR' # 41; ;

Képernyőn. Kurzor: = MyConst;

Itt a "MYCURSOR" a kurzor neve, amelyet be kell töltenünk. Ne feledje, hogy ha létrehozod az erőforrásfájlt, és a "ImageEditor" segédprogrammal meg tudod csinálni, akkor csak a nagybetűket kell használni a kurzor nevében.