Delphi - Animált kurzor felhasználása saját alkalmazásban

forráskód letöltése
Animált kurzor felhasználása saját alkalmazásban nem számít bonyolult feladatnak, persze csak akkor, ha tisztában van ennek módjával.

Melléket példa ebben segít tájékozódni. Ehhez először is szükség lesz egy animált kurzorra. Ennek kiterjesztése ANI.

Ha van ilyen állományunk, akkor a LoadCursorFromFile függvénnyel betölthetjük azt. Paraméterként az állomány nevét kell megadnunk, szükség szerint elérési útvonallal együtt.

A visszatérési értéket el kell tárolnunk egy Screen objektum Cursors tömbjébe. Ennél a tömbnél pozitív számokat használhatunk fel indexként saját alkalmazásunkban.

Mellékelt példában 20-at választottuk indexként. Ezek után már csak annyi a teendő, hogy amelyik komponensnél fel szeretnénk használni az adott kurzort, ott a Cursor property-be ezt a számot kell beírnunk. Erre példa a Panel1 komponens Cursor property-e.