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

@BARS1991 · Регистрация: 16.11.2009

Студворк — интернет-сервис помощи студентам

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

@NiTan · 10.02.2010, 18:42

Взял из местного FAQ'а:

C++
1
2
3
4
5
6
7
8
9
HWND i;
i=LoadImage(0,"cursor1.cur",IMAGE_CURSOR,0,0,LR_LOADFROMFILE);
if (i==0) 
    ShowMessage("Ошибка загрузки курсора!");
else
{
  Screen->Cursors[1]=i;
  Form1->Cursor=1;
}

@BARS1991 · 10.02.2010, 18:51 **[ТС]**

Спасибо!

@voalex · 10.11.2010, 21:54

NiTan, СПАСИБО ОГРОМНОЕ!!! А то в справке билдера пример не работал - хотел уже убить себя об стену

@NiTan · 11.11.2010, 11:23

voalex, BARS1991, спасибо автору FAQ'а, где вы должны были в первую очередь посмотреть.

@voalex · 11.11.2010, 11:51

Я воспользовался поиском

xTIGRx · 14.05.2011, 22:25

А у меня в этом коде ошибка вылазит
HWND i;
i=LoadImage(0,"cursor1.cur",IMAGE_CURSOR ,0,0,LR_LOADFROMFILE);
if (i==0)
ShowMessage("Ошибка загрузки курсора!");
else
{
Screen->Cursors[1]=i;
Form1->Cursor=1;
}
типо он понять не может что такое HWND...

@-LeV- · 14.05.2011, 22:37

GoldDragon,

C++
1
#include <windows.h>

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@BARS1991 23 / 15 / 0 Регистрация: 16.11.2009 Сообщений: 332

	Как заменить системный курсор на свой? 10.02.2010, 18:37. Показов 3557. Ответов 7 Метки нет (Все метки) Как изменить системный курсор на свой? 1

@BARS1991 23 / 15 / 0 Регистрация: 16.11.2009 Сообщений: 332
	10.02.2010, 18:51 [ТС]
	Спасибо! 1

@voalex 32 / 32 / 8 Регистрация: 21.10.2009 Сообщений: 97
	10.11.2010, 21:54
	NiTan, СПАСИБО ОГРОМНОЕ!!! А то в справке билдера пример не работал - хотел уже убить себя об стену 1

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	11.11.2010, 11:23
	voalex, BARS1991, спасибо автору FAQ'а, где вы должны были в первую очередь посмотреть. 1

@voalex 32 / 32 / 8 Регистрация: 21.10.2009 Сообщений: 97
	11.11.2010, 11:51
	Я воспользовался поиском 2

xTIGRx 294 / 200 / 6 Регистрация: 23.10.2010 Сообщений: 1,173 Записей в блоге: 1
	14.05.2011, 22:25
	А у меня в этом коде ошибка вылазит HWND i; i=LoadImage(0,"cursor1.cur",IMAGE_CURSOR ,0,0,LR_LOADFROMFILE); if (i==0) ShowMessage("Ошибка загрузки курсора!"); else { Screen->Cursors[1]=i; Form1->Cursor=1; } типо он понять не может что такое HWND... 0

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

Решение