StringGrid Delphi
Свойство Cursor
Свойство Delphi Cursor управляет видом курсора, который будет показан при движении мышки над компонентом. Свойство Cursor компонента StringGrid в Инспекторе Объектов является выпадающим списком, содержащим графическое изображение и название в системе соответствующего курсора. Название курсора - это константа типа Integer.
Есть несколько зарезервированных курсоров, соответствующих константам Cursor со значениями от минус два (-2) до минус 22 (-22). Их мы и можем видеть, открыв выпадающий список в Инспекторе объектов:
Курсор | Числовое значение | Символическое значение | |
![]() | -2 | crArrow | |
![]() | -3 | crCross | |
![]() | -4 | crIBeam | |
![]() | -5 | crSizeAll | |
![]() | -6 | crSizeNESW | |
![]() | -7 | crSizeNS | |
![]() | -8 | crSizeNWSE | |
![]() | -9 | crSizeWE | |
![]() | -10 | crUpArrow | |
![]() | -11 | crHourGlass | |
![]() | -12 | crDrag | |
![]() | -13 | crNoDrop | |
![]() | -14 | crHSplit | |
![]() | -15 | crVSplit | |
![]() | -16 | crMultiDrag | |
![]() | -17 | crSQLWait | |
![]() | -18 | crNo | |
![]() | -19 | crAppStart | |
![]() | -20 | crHelp | |
![]() | -21 | crHandPoint | |
![]() | -22 | crSizeAll |
Установленное по умолчанию значение курсора равно crDefault, оно не отражено в таблице курсоров, так как совпадает по изображению и числовому значению с курсором crArrow. Также, как следует из таблицы, курсоры с числовыми значениями -5 и -22 имеют одинаковые символические значения и графические изображения.
Есть ещё одно зарезервированное числовое значение для курсора: -1. Курсор со значением -1 от остальных курсоров отличается тем, что не имеет графического изображения. Он может применяться в тех случаях, когда курсор нужно скрыть, например, чтобы его графический символ не мешал при выполнениии некоторых операций с графикой или текстом.
Изображения курсоров хранятся в файлах с расширениями *.cur и *.ani (анимированные курсоры). Существуют многочисленные коллекции курсоров, также курсор для своей программы можно создать и самому с помощью специализированных программ.
Чтобы использовать новый курсор в своей программе, нужно обратиться к свойствам такого глобального объекта Delphi как Screen. Объект Screen имеет свойство Cursors. Это массив, имеющий вышеприведённые зарезервированные значения в диапазоне от -1 до -22. Можно подменить любое из них на изображение своего курсора, но лучше новому курсору присвоить значение, не совпадающее с зарезервированными.
Итак, выбрав новые курсоры, нужно сохранить их в файлы, например, NewCursor1.cur, NewCursor2.cur, а затем загрузить эти файлы в ячейки массива Screen.Cursors, с помощью функции LoadCursorFromFile:
Screen.Cursors[1]:=LoadCursorFromFile('NewCursor1.cur');
Screen.Cursors[2]:=LoadCursorFromFile('NewCursor2.cur');
Предварительно можно создать глобальные числовые константы:
const NewCursor1 = 1;
const NewCursor2 = 2;
Теперь для того, чтобы при необходимости компонент StringGrid1 приобрёл новый курсор, например NewCursor1.cur, нужно присвоить его номер (1) свойству Cursor таблицы:
StringGrid1.Cursor:=1;
или
StringGrid1.Cursor:=NewCursor1;
Эти манипуляции с курсорами компонентов возможны, если собственное свойство Cursor объекта Screen равно crDefault. Если же присвоить ему другое значение, то все компоненты приложения приобретут соответствующий курсор, и изменить его с помощью свойства Cursor компонентов будет невозможно.Читайте также:
- Свойство DragCursor StringGrid Delphi