властивість Cursor
Властивість Delphi Cursor управляє видом курсору, який буде показаний при русі мишки над компонентом. Властивість Cursor компонента StringGrid в інспектор об'єктів є списком, що випадає, що містить графічне зображення і назва в системі відповідного курсора. Назва курсора - це константа типу Integer.
Є кілька зарезервованих курсорів, відповідних констант Cursor зі значеннями від мінус два (-2) до мінус 22 (-22). Їх ми і можемо бачити, відкривши, що випадає в Інспектора об'єктів:
Встановлений за умовчанням значення курсора одно crDefault. воно не відображено в таблиці курсорів, так як збігається по зображенню і числовим значенням з курсором crArrow. Також, як випливає з таблиці, курсори з числовими значеннями -5 і -22 мають однакові символічні значення і графічні зображення.
Є ще одне зарезервоване числове значення для курсора: -1. Курсор зі значенням -1 від інших курсорів відрізняється тим, що не має графічного зображення. Він може застосовуватися в тих випадках, коли курсор потрібно приховати, наприклад, щоб його графічний символ не заважав при виконанні деяких операцій з графікою або текстом.
Зображення курсорів зберігаються в файлах з розширеннями * .cur і * .ani (анімовані курсори). Існують численні колекції курсорів, також курсор для своєї програми можна створити і самому за допомогою спеціалізованих програм.
Щоб використовувати новий курсор в своїй програмі, потрібно звернутися до властивостей такого глобального об'єкта Delphi як Screen. Об'єкт Screen має властивість Cursors. Це масив, який має вищенаведені зарезервовані значення в діапазоні від -1 до -22. Можна підмінити будь-яке з них на зображення свого курсору, але краще новому курсору привласнити значення, що не співпадає з зарезервованими.
Отже, вибравши нові курсори, потрібно зберегти їх у файли, наприклад, NewCursor1.cur. NewCursor2.cur. а потім завантажити ці файли в осередку масиву Screen.Cursors. за допомогою функції LoadCursorFromFile:
Попередньо можна створити глобальні числові константи:
const NewCursor1 = 1;
const NewCursor2 = 2;
Тепер для того, щоб при необхідності компонент StringGrid1 придбав новий курсор, наприклад NewCursor1.cur. потрібно привласнити його номер (1) властивості Cursor таблиці:
StringGrid1.Cursor: = 1;
або
StringGrid1.Cursor: = NewCursor1;
Ці маніпуляції з курсором компонентів можливі, якщо власне властивість Cursor об'єкта Screen одно crDefault. Якщо ж присвоїти йому інше значення, то все компоненти програми придбають відповідний курсор, і змінити його за допомогою властивості Cursor компонентів буде неможливо.