Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.10.2014, 23:58
HTTqp HTTqp вне форума
Новичок
 
Регистрация: 16.04.2014
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: -25
Восклицание Курсор не там где надо

Смотрите вот окно и в нем должен появлятся курсор который не должен выходить за пределы формы пока форма имеет форкус на себе. Так вот он почему то появляется в левом верхнем углу и мегает, а должен появлятся на форме что не так в программе? Вот код

Последний раз редактировалось Admin, 15.10.2014 в 19:28.
  #2  
Старый 15.10.2014, 01:22
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Сам не догадался? После получения окном фокуса и захвата курсора, дополнительно установи его в центр в формы (SetCursorPos).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #3  
Старый 15.10.2014, 01:38
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Похоже не тот хендл задействован в WindowProc, структура aRect остаётся пустой, вместо hWindow попробуйте задействовать процедурный hWnd, вдруг поможет
  #4  
Старый 15.10.2014, 02:34
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Хендл не тот, но всё равно курсор придётся перемещать.
К тому же я не понимаю, зачем ТС поменял предложенный ему код.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #5  
Старый 15.10.2014, 13:28
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Попробовал сейчас с подменой на hWnd, работает - курсор ограничивается внутри клиентской области формы, но только до первого клика по неклиентской части (заголовку), наверное теряется общий фокус, это тоже вероятно нужно ловить
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
HTTqp (15.10.2014)
  #6  
Старый 15.10.2014, 16:30
HTTqp HTTqp вне форума
Новичок
 
Регистрация: 16.04.2014
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: -25
По умолчанию

Цитата:
Сообщение от Alegun
Попробовал сейчас с подменой на hWnd, работает - курсор ограничивается внутри клиентской области формы, но только до первого клика по неклиентской части (заголовку), наверное теряется общий фокус, это тоже вероятно нужно ловить
Cпасибо понял свои ошибки)))
  #7  
Старый 15.10.2014, 19:32
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,553
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от HTTqp
Смотрите вот окно и в нем должен появлятся курсор который не должен выходить за пределы формы пока форма имеет форкус на себе. Так вот он почему то появляется в левом верхнем углу и мегает, а должен появлятся на форме что не так в программе? Вот код
Недельный бан за удаление исходного кода
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025