плъзгачите (TScrollBar) Delphi
Ленти за превъртане често се използват, за да превъртите никакви действия. Например, когато слушате музика, можете да преминете през него по всяко място с помощта на проста лента за превъртане. Ако информацията не се побира в прозореца, тя също може да преминете с помощта на лентите такъв, но в повечето случаи това става автоматично.
Нека да разгледаме лентата за превъртане в действие. Създаване на нова кандидатура. Форма TLabel да образуват един компонент и една ивица TScrollBar превъртане.
В Label1 компонент промените надпис собственост на "On". Сега се създаде манипулатор събитие # 111; nchange за превъртане и да го напиша, както следва:
В този код, присвояваме имот надпис Label1 стойност на компонент от текущата позиция на плъзгача лентата за превъртане. Текущата стойност на плъзгача може да бъде получена с имоти Позиция ScrollBar1 обект. Само има едно "но". Този имот е от тип "цяло число", а заглавието на имот Label1 компонент - е низ. Ето защо, ние трябва да се трансформира цяло число в низ. За тази цел има функция intTostr. Тя трябва да преминат серия и тя ще ни върне низ. Така че, ако ти се обадя тази функция с параметър на текущата позиция на плъзгача intTostr (ScrollBarl. Позиция), в резултат на работата си може да бъде присвоен имот Надпис Label1 компонент.
Опитайте се да стартирате програмата и да се премести на плъзгача. Стойността на позицията ще бъде показано в Label1 компонент.
В тази програма, ние написахме пример за лентата с хоризонтална превъртане. За да бъде вертикална, е необходимо да се промени Kind sbverticai собственост. И все пак, промените в слайдер стойност от 0 до 100. За да промените тази стойност, има свойства Мин (по подразбиране е нула) и макс (по подразбиране е 100). Нищо друго специално за прелистване там.
Помогнете на проекта! Кажи на приятел за този сайт:
Свързани статии