Bare de derulare (TScrollBar) Delphi
Barele de derulare sunt foarte des folosite pentru derularea unei acțiuni. De exemplu, atunci când ascultați muzică, puteți să-l derulați în orice loc cu o singură bară de defilare. Dacă informațiile nu se încadrează în fereastră, este derulată și prin astfel de benzi, dar în majoritatea cazurilor acest lucru se face automat.
Să ne uităm la bara de defilare în acțiune. Creați o nouă aplicație. Formați pe formularul TLabel cu o singură componentă și o bară de derulare TScrollBar.
În componenta Label1, modificați proprietatea legendei la "O". Acum creați un handler de evenimente Schimbați bara de derulare și scrieți următoarele:
În acest cod, atribuim valoarea poziției curente a glisorului barei de derulare la proprietatea de subtitrare a componentei Label1. Valoarea actuală a cursorului poate fi obținută cu ajutorul proprietății Poziție a obiectului ScrollBar1. Numai există un "BUT". Această proprietate are tipul "integer", iar proprietatea de legendă a componentei Label1 este un șir. Așa că trebuie să transformăm un număr întreg într-un șir. Pentru aceasta, există o funcție intTostr. Trebuie să treacă un număr, iar ea ne va întoarce un șir. Deci, dacă apelați această funcție cu un parametru al poziției curente a cursorului intTostr (ScrollBarl. Poziția), rezultatul muncii sale pot fi atribuite la proprietate componenta Legendă Label1.
Încercați să rulați programul și să mutați cursorul. Valoarea poziției va fi afișată în componenta Label1.
În acest program, am scris un exemplu de bară orizontală de defilare. Pentru ao face verticală, trebuie să schimbați proprietatea Kind la sbverticai. Valoarea cursorului se modifică de la 0 la 100. Pentru a modifica aceste valori, există Min (implicit este zero) și max (implicit este 100). Nu există nimic mai special cu privire la barele de defilare.
Ajutați proiectul! Spuneți prietenilor dvs. despre acest site:
Articole similare
Trimiteți-le prietenilor: