Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 29.10.2008, 17:09   #1
Ciberal
Пользователь
 
Регистрация: 28.10.2008
Сообщений: 33
По умолчанию Загрузка курсора из фаила *.cur и/или *.res

Никак не могу разобраться как осуществить оные действия. Буду рад помощи.
Ciberal вне форума Ответить с цитированием
Старый 29.10.2008, 17:36   #2
anton14
Форумчанин
 
Аватар для anton14
 
Регистрация: 19.04.2008
Сообщений: 150
По умолчанию

Код:
var 
h: hcursor; 
begin 
h := LoadCursorFromFile(*.сur'); 
Screen.Cursors[1] := h; 
Form1.Cursor := 1; 
end;
anton14 вне форума Ответить с цитированием
Старый 29.10.2008, 19:25   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

1) Сначала создайте файл ресурса *.res с вашим новым курсором.
(Имя файла ресурса должно отличаться от имени проекта, поскольку Delphi создает такой-же; название ресурса нужно задавать БОЛЬШИМИ БУКВАМИ, например CURSORNAME)

2) Delphi номера 0 .. -16 для определения курсора. Используйте новый номер для вашего курсора, например, 1.
(Лучше использовать удобочитаемое название типа crMyCursor = 1)

3) В событии OnFormCreate для главной формы, поместите следующий код:
Screen.Cursors[CrMyCursor]:= LoadCursor(hInstance, 'CURSORNAME');

4) Теперь, если вам нужно использовать курсор на форме, панели и т.д., то напишите:
Anotherform.Cursor:= crMyCursor;

Все курсоры в приложении обрабатываются объектом Screen. Если хотите получить больше информации об этом объекте, посмотрите в справочнике (TObject).
mihali4 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Wav-ы в *.res Altera Общие вопросы Delphi 12 22.09.2008 18:01
Изменения вордовского фаила Иллидан Общие вопросы Delphi 2 15.09.2008 10:13
Макрос по копированию данных из другого фаила Devourer12345 Microsoft Office Excel 30 17.07.2008 03:54
компоновка фаила AET Паскаль, Turbo Pascal, PascalABC.NET 5 04.04.2008 20:49
Два размера фаила Иллидан Безопасность, Шифрование 1 09.03.2008 00:13


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS