Форум программистов, компьютерный форум, киберфорум
Наши страницы
Markus_13
Войти
Регистрация
Восстановить пароль
Блог быдлокодера Markus'а
Почитал? Иди поешь! xD
Рейтинг: 5.00. Голосов: 1.

Как изменить системный курсор?

Запись от Markus_13 размещена 02.03.2012 в 04:59

Простой способ замены системного курсора:

Например, если хотим загрузить свой курсор на время работы проги - делаем так:

1) прописываем в var 2 переменных:
Delphi
1
oc,nc:hCursor;
2) меняем обычный курсор (напр. в OnCreate формы):
Delphi
1
2
3
oc:=CopyIcon(LoadCursor(0,IDC_ARROW));//сохраняем текущий курсор
nc:=LoadCursorFromFile('C:\WINDOWS\Cursors\dinosau2.ani');//грузим наш курсор из файла
SetSystemCursor(nc,OCR_NORMAL);//меняем
3) меняем обратно (напр. в OnDestroy формы):
Delphi
1
SetSystemCursor(oc,OCR_NORMAL);//возвращаем старый
Размещено в Без категории
Просмотров 1337 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru