Cursor Property
Proprietatea Delphi Cursor controlează tipul de cursor care va fi afișat când mouse-ul se deplasează peste componentă. Proprietatea Cursor a componentei StringGrid din Inspectorul de obiecte este o listă derulantă care conține o imagine grafică și un nume în sistemul de cursor corespunzător. Numele cursorului este o constantă de tip Integer.
Există mai mulți cursoare rezervate corespunzătoare constantelor cursorului cu valori de la minus două (-2) la minus 22 (-22). Le vedem prin deschiderea unei liste derulante în Inspectorul de obiecte:
Valoarea implicită pentru cursor este crDefault. Nu se reflectă în tabelul cursorului, deoarece se potrivește cu imaginea și valoarea numerică cu cursorul crArrow. De asemenea, după cum rezultă din tabel, cursorii cu valori numerice -5 și -22 au aceleași valori simbolice și imagini grafice.
Există încă o valoare numerică rezervată cursorului: -1. Cursorul cu o valoare de -1 de la ceilalți cursori diferă prin faptul că nu are o imagine grafică. Poate fi folosit atunci când cursorul trebuie să fie ascuns, de exemplu, pentru ca simbolul său grafic să nu interfereze cu anumite operații cu grafică sau text.
Imaginile cursoarelor sunt stocate în fișiere cu extensiile * .cur și * .ani (cursoare animate). Există numeroase colecții de cursoare, de asemenea puteți crea un cursor pentru programul dvs. cu ajutorul programelor specializate.
Pentru a utiliza noul cursor în programul dvs., trebuie să accesați proprietățile unui astfel de obiect global Delphi ca Ecran. Obiectul Ecran are proprietatea Cursori. Aceasta este o matrice care are valorile rezervate de mai sus în intervalul -1 până la -22. Puteți înlocui oricare dintre ele pentru imaginea cursorului dvs., dar este mai bine să atribuiți o valoare noului cursor care nu coincide cu cele rezervate.
Deci, selectând noi cursoare, trebuie să le salvați în fișiere, de exemplu, NewCursor1.cur. NewCursor2.cur. și apoi încărcați aceste fișiere în celulele din seria Screen.Cursors. utilizând funcția LoadCursorFromFile:
În prealabil, puteți crea constante numerice globale:
const NewCursor1 = 1;
const NewCursor2 = 2;
Acum, pentru ca componenta StringGrid1 să achiziționeze un nou cursor dacă este necesar, de exemplu, NewCursor1.cur. trebuie să alocați numărul (1) proprietății Cursorului tabelului:
StringGrid1.Cursor: = 1;
sau
StringGrid1.Cursor: = NewCursor1;
Aceste manipulări cu cursorii componentelor sunt posibile dacă proprietatea Cursor a obiectului Ecran este crDefault. Dacă îi alocați o altă valoare, atunci toate componentele aplicației vor achiziționa cursorul corespunzător și va fi imposibil să îl modificați cu proprietatea Cursor a componentelor.
Articole similare
Trimiteți-le prietenilor: