Изменение курсора

[SergeyS]

Пробовал повторить результат... ничего не получилось при использовании ImageEditor (BDS 2006)
Но всё заработало когда создал ресурс следующим образом:
курсор создал с помощью ImageEditor:
Cursor1.cur
создал следующий файл:
cursor.rc

Код: Выделить всё

CURSOR1   CURSOR "CURSOR1.CUR"

откомпилировал его следующим образом
brcc32 -32 cursor.rc

добавил в коде следующую строчку:
{$R cursor.res}

все остальное как у тебя:

Код: Выделить всё

  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'CURSOR1');
  Cursor := crMyCursor;

запустил и всё заработало