T>>Не могу загрузить анимированный курсор из ресурса:
SIG><skipped>
SIG>При загрузке из ресурсов приложения первым аргументом у LoadCursor должен быть HInstance (или Module.ResInstance, если предполагается использовать отдельную dll для ресурсов). С нулем она может только стандартные курсоры грузить.
Спасибо, заработало
Для интересующихся привожу проведённые мной изменения:
Curs.rc
51 21 "dinosaur.ani"
52 21 "horse.ani"
Unit1.pas
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursor(HInstance, pChar(51));
Screen.Cursors[2] := LoadCursor(HInstance, pChar(52));
end;
Было 2 наложенных ошибки:
1) LoadCursor требует чесный Instance и на 0 не покупается.
2) Борландовский компилятор ресурсов похоже не знает слова ANICURSOR и создаёт ресурс с типом "ANICURSOR", а вот MS-овский создаёт ресурс с типом 21. Понятно что LoadCursor не может найти наши ресурсы, даже если мы подали ему HInstance — он то просматривает тип 21.
... << RSDN@Home 1.1.4 beta 3 rev. 240>>