Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

wm_setcursor [D6, Win2k, WinXP]

Энтри © (2005-10-02 14:42:00)
Задача состоит в том, чтобы написать код на Win32API, который реализует следующую программу Project_N3.exe
( http://www.rsdn.ru:80/File/46459/Project_N3.exe)
Единственное условие, чтобы была реализация через обработку сообщения wm_setcursor.

Я реализовал через wm_command так:

wm_command:
begin

if LoWord(WParam) = 501 then SetCursor(LoadCursor( 0,idc_appstarting));
if LoWord(WParam) = 502 then SetCursor(LoadCursor( 0,idc_arrow));
if LoWord(WParam) = 503 then SetCursor(LoadCursor( 0,idc_cross));
if LoWord(WParam) = 504 then SetCursor(LoadCursor( 0,idc_help));
if LoWord(WParam) = 505 then SetCursor(LoadCursor( 0,idc_no));
end;

А КАК ЧЕРЕЗ wm_setcursor?

wm_setcursor:
begin
if LoWord(WParam) = 501 then ???
if LoWord(WParam) = 502 then ???
if LoWord(WParam) = 503 then ???
if LoWord(WParam) = 504 then ???
if LoWord(WParam) = 505 then ???
end;

Еще вопрос: При создание и описание атрибутов класса окна я назначаю WindowClass.hCursor:=hCursor(nil); Но когда я запускаю программу все равно курсов в виде часов. Как сделать, чтобы курсор при запуске программы был невидимым?

Энтри (2005-10-31 13:24:00) [1]
Спасибо. Сделаю "работу над ошибками".

GrayFace (2005-10-07 20:00:00) [2]
Zeqfreed © (06.10.05 17:36) [9]
Данный форум является тематическим и, в общем, создан для обсуждения проблем, возникающих у людей при работе с Delphi.
И я о том же. По этому, высказывания в стиле "пошли отсуда со своими вопросами" некорректны.

P.S. Вопрос, действительно, наикривейший. Сейчас перечитал его и наконец понял, что имелось ввиду. А я-то думал, надо только скрыть курсор.

Энтри (02.10.05 14:42)
Help -> Windows SDK -> Index
И ищи все, что нужно. (а лучше www.msdn.com )

Zeqfreed (2005-10-06 17:36:00) [3]
Энтри (02.10.05 14:42)
А может все-таки опишешь, что из себя представляет программа "Project_N3.exe"? Просто врядли тут найдется много желающих скачать её и посмотреть, хотя я могу ошибаться.

GrayFace © (05.10.05 4:41) [5]

> А для чего тогда форум?

Меня удивляют такие вопросы. Неужели, форум кому-то чем-то обязан? Данный форум является тематическим и, в общем, создан для обсуждения проблем, возникающих у людей при работе с Delphi. (примерно таково мое понимание назначения форума). В данной ветке, автор никоим образом не описал возникшую у него проблему, а лишь требует готовое решение; причем непонятно, что именно он хочет. На более-менее корректно поставленную проблему ему ответили.

GrayFace (2005-10-06 14:55:00) [4]
Правда, еще суть вопроса загнана в самый конец сообщения.

GrayFace (2005-10-06 14:54:00) [5]
Помню такую штуку. Читал частично. Все, кроме названия и [3] составлено правельно (ссылку читал мельком, так что руководствуюсь здравым смыслом).

P.S. Надо же было додуматься так извратить смысл слова "хакер"...

Игорь Шевченко (2005-10-05 10:30:00) [6]
GrayFace © (05.10.05 04:41) [5]

> А для чего тогда форум?

Добавь в избранное, если не трудно:

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

GrayFace (2005-10-05 04:41:00) [7]
Игорь Шевченко © (05.10.05 0:33) [4]
ЗЫ: Свои проблемы решай сам или проси решение задач на платной основе
А для чего тогда форум?

Игорь Шевченко (2005-10-05 00:33:00) [8]
Пример:

procedure TfAbstractDictionary.WMSetCursor(var Message: TWMSetCursor); var Cur :HCURSOR; begin Cur := 0; if (Message.HitTest = HTCAPTION) and FMiniDictionary then Cur := Screen.Cursors[crSizeAll]; if Cur <> 0 then SetCursor(Cur) else inherited; end;

ЗЫ: Свои проблемы решай сам или проси решение задач на платной основе

Энтри (2005-10-04 23:48:00) [9]
ясно, а по сути

ShiFT (2005-10-03 07:19:00) [10]
> Как сделать, чтобы курсор при запуске программы был невидимым?
ShowCursor( false); // Hide Cursor ShowCursor( true); // Show Cursor

Delphi_is_cool (2005-10-03 00:33:00) [11]

> Как сделать, чтобы курсор при запуске программы был невидимым?

Просто, "отодвинуть" его за пределы экрана.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »