Probabil nu ini, dar ani?
Trebuie să ne prikompilit fișier (e) a cursorului (e) ca resursă (e) de la exe-fișier (sau DLL) aplicații, și apoi să le descărcați de pe resursa și să alocați o Screen.Cursors tip de obiect Screen [nomer_kursora]: = LoadCursor (.) ;
Am făcut-o eu însumi, dar nu am de gând să scot codul sursă. Iată unul dintre multele exemple din DelphiWorld (vă sugerez să descărcați):
Definirea și utilizarea cursorului
--------------------------------------------------------------------------------
În primul rând (deoarece mulți cad în această capcană), asigurați-vă că numele .RES-fișier în care vă păstrați cursorul este diferit de .RES-dosar al proiectului, și anume dacă proiectul dvs. este numit MyApp.DPR, atunci nu utilizați fișierul MyApp.RES pentru a stoca noi resurse. Trebuie să creați un .RES-fișier separat cu un alt nume (de exemplu, MyApp01.RES) și include în proiectul dumneavoastră ca aceasta:
Nu puteți atribui cursorul proprietății componentei Cursor sau DragCursor din fișierul .RES direct, trebuie să efectuați mai mulți pași intermediari. În fiecare proiect, Delphi definește un obiect global denumit Screen (tip TScreen), care, apropo, definește o serie de cursoare, numite destul de ciudat, cursoare. Când faceți clic pe proprietatea Cursor / DragCursor din Inspectorul de obiecte, lista derulantă și există o listă de elemente ale matricei specificate.
Pentru pre-cursoare Delphi utilizează elementele unei matrice cu indici de la 1 sau mai mică (de exemplu, doar numere negative), astfel încât să puteți proprii loc cursoare cu un număr de serie începând cu zero, și de mai sus.
În primul rând, determinați constanta, să spunem:
Apoi trebuie să încărcați cursorul. Puteți face acest lucru în procesarea evenimentului OnCreate:
Apoi, setați pur și simplu proprietatea DragCursor a oricărui control:
Notă: numele cursorului trebuie să fie întotdeauna scris în majusculă, atât când sunați LoadCursor, cât și în numele acestuia în fișierul .RES.