wm_setcursor

← →
Энтри (2005-10-02 14:42) [0]

Задача состоит в том, чтобы написать код на 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); Но когда я запускаю программу все равно курсов в виде часов. Как сделать, чтобы курсор при запуске программы был невидимым?

← →
Delphi_is_cool © (2005-10-03 00:33) [1]

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

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

← →
ShiFT (2005-10-03 07:19) [2]

> Как сделать, чтобы курсор при запуске программы был невидимым?
ShowCursor( false); // Hide Cursor ShowCursor( true); // Show Cursor

← →
Энтри (2005-10-04 23:48) [3]

ясно, а по сути

← →
Игорь Шевченко © (2005-10-05 00:33) [4]

Пример:

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;

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

← →
GrayFace © (2005-10-05 04:41) [5]

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

← →
Игорь Шевченко © (2005-10-05 10:30) [6]

GrayFace © (05.10.05 04:41) [5]

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

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

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

← →
GrayFace © (2005-10-06 14:54) [7]

Помню такую штуку. Читал частично. Все, кроме названия и [3] составлено правельно (ссылку читал мельком, так что руководствуюсь здравым смыслом).

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

← →
GrayFace © (2005-10-06 14:55) [8]

Правда, еще суть вопроса загнана в самый конец сообщения.

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

GrayFace © (05.10.05 4:41) [5]

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

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

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

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

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

← →
Энтри (2005-10-31 13:24) [11]

Спасибо. Сделаю "работу над ошибками".

wm_setcursor Найти похожие ветки