Re: Анимированный курсор в ресурсах
От: Sergei I. Gorelkin Россия  
Дата: 04.12.04 09:25
Оценка:
Здравствуйте, Tonal-, Вы писали:

T>Не могу загрузить анимированный курсор из ресурса:


<skipped>

T>
T>procedure TForm1.FormCreate(Sender: TObject);
T>begin
T>  Screen.Cursors[1] := LoadCursor(0, pChar(51));
T>  Screen.Cursors[2] := LoadCursor(0, pChar(52));
T>end;
T>


<skipped>

При загрузке из ресурсов приложения первым аргументом у LoadCursor должен быть HInstance (или Module.ResInstance, если предполагается использовать отдельную dll для ресурсов). С нулем она может только стандартные курсоры грузить.

А вообще, был какой-то нюанс с анимированными курсорами. Только сейчас я уже точно не помню. Но во времена Windows 95 и Delphi3 в RX Library была функция, которая сначала сохраняла ресурс во временном файле, а потом оттуда грузила курсор.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.