Пробовал повторить результат... ничего не получилось при использовании ImageEditor (BDS 2006)
Но всё заработало когда создал ресурс следующим образом:
курсор создал с помощью ImageEditor:
Cursor1.cur
создал следующий файл:
cursor.rc
откомпилировал его следующим образом
brcc32 -32 cursor.rc
добавил в коде следующую строчку:
{$R cursor.res}
все остальное как у тебя:
Код: Выделить всё
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'CURSOR1');
Cursor := crMyCursor;
запустил и всё заработало
Пробовал повторить результат... ничего не получилось при использовании ImageEditor (BDS 2006)
Но всё заработало когда создал ресурс следующим образом:
курсор создал с помощью ImageEditor:
Cursor1.cur
создал следующий файл:
cursor.rc
[code]
CURSOR1 CURSOR "CURSOR1.CUR"
[/code]
откомпилировал его следующим образом
brcc32 -32 cursor.rc
добавил в коде следующую строчку:
{$R cursor.res}
все остальное как у тебя:
[code]
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'CURSOR1');
Cursor := crMyCursor;
[/code]
запустил и всё заработало