Смуги прокрутки (TScrollBar) Delphi
Смуги прокрутки дуже часто використовуються для прокручування якої-небудь дії. Наприклад, коли ви слухаєте музику, ви можете прокрутити її в будь-яке місце за допомогою простої смуги прокрутки. Якщо інформація не поміщається у вікно, її також прокручують за допомогою таких смуг, але в більшості випадків це робиться автоматично.
Давайте подивимося на смугу прокрутки в дії. Створіть новий додаток. Сформуйте на формі один компонент TLabel і одну смугу прокрутки TScrollBar.
У компонента Label1 змініть властивість caption на "О". Тепер створіть обробник події # 111; nchange для смуги прокрутки і напишіть там наступне:
У цьому коді ми присвоюємо властивості caption компонента Label1 значення поточної позиції повзунка смуги прокрутки. Поточне значення повзунка можна отримати ЗА ДОПОМОГОЮ властивості Position об'єкта ScrollBar1. Тільки тут є одне "АЛЕ". Це властивість має тип "ціле число", а властивість caption компонента Label1 - це рядок. Тому нам треба перетворити ціле число в рядок. Для цього є функція intTostr. Їй потрібно передати число, а вона нам поверне рядок. Тому якщо викликати цю функцію з параметром поточної позиції повзунка intTostr (ScrollBarl. Position), результат її роботи можна привласнити властивості Caption компонента Label1.
Спробуйте запустити програму і посувати повзунок. Значення позиції буде відображатися в компоненті Label1.
У цій програмі ми написали приклад горизонтальної смуги прокрутки. Щоб зробити її вертикальної, потрібно властивість Kind поміняти на sbverticai. І ще, значення повзунка змінюється від 0 до 100. Щоб змінити ці значення, є властивості Min (за замовчуванням дорівнює нулю) і мах (за замовчуванням дорівнює 100). Більше нічого особливого в роботі смуг прокрутки немає.