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

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

Показов 6070 Комментарии 0

Метки delphi7, setsystemcursor, winapi

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

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

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);//возвращаем старый

Метки delphi7, setsystemcursor, winapi

Размещено в Без категории

« Выравнивание текста в TEdit Главная страница Динамическая загрузка DLL из ресурса на примере Bass.dll »

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Всего комментариев 0

Комментарии

Markus_13

Регистрация 20.02.2009
Адрес ring0
Сообщений 434
Записей в блоге 4

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

Наверх

Сообщение форума

Отменить изменения