Загрузка курсора из файла
Иногда возникает необходимость визуально выделить какой-либо элемент интерфейса разрабатываемой программы. С этой целью очень удобно использовать курсор. В Windows это можно сделать «на лету», вызовом всего одной функции, позволяющей загрузить курсор из файла.
Windows.SetSystemCursor(Windows.LoadImage(HInstance, 'my_link.cur', 2, 0, 0, $0010), OCR_NORMAL);
Первый параметр данной функции загружает требуемый курсор из файла, второй — указывает, какой из системных курсоров необходимо заменить. В данном примере меняется обычный курсор-стрелка (OCR_NORMAL), прочие параметры можно посмотреть в модуле windows (чаще всего используются OCR_WAIT, OCR_SIZE, OCR_ICON, OCR_NO, OCR_HAND, OIC_WARNING, OIC_ERROR и OIC_INFORMATION).
Работающий пример, демонстрирующий замену курсора из файла, можно скачать из нашего файлового архива. Обратите внимание, что данный метод не является кросс-платформенным, и требует подключения модуля windows.
Так будет кросс-платформенно:
procedure SetMyCursor; var Cur: TCursorImage; begin Cur := TCursorImage.Create; try Cur.LoadFromFile('my_link.cur'); Screen.Cursors[1024] := Cur.ReleaseHandle; finally Cur.Free; end; Screen.Cursor := 1024; end;А как обратно нормальный курсор вернуть?