Показать сообщение отдельно
  #4  
Старый 15.11.2018, 02:01
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Вне твоего окна - не будет, ну если не хукать мышку. Именно поэтому я и говорил о скриншоте экрана (примеров кода куча в инете), выводе в специальное окно, расположенное по верх всего экрана, и работы именно там. Это самый простой способ реализации. Еще раз:
1. По какой-нить команде в твоем приложении (в маленьком окошке, из трея, да хоть горячую клавишу зарегистрируй) делаем скрин всего десктопа.
2. Создаем новое окно, которое развернуто на весь экран, без рамок и расположено по верх всех окон. Туда в TImage (ну или перекрой отрисовку самого окна) выводим этот скриншот.
3. Меняем курсор на прицел.
4. По OnMouseDown запоминаем координаты курсора.
5. По OnMouseUp получаем нужные координаты, меняем курсор на дефолтный, переносим курсор в место, запомненое в п. 4, закрываем служебное окно и выводим нужные координаты в нужное место.
6. Profit
Ответить с цитированием