Свойство 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 компонентов будет невозможно.