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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.01.2014, 18:57
AZelensky AZelensky вне форума
Прохожий
 
Регистрация: 11.01.2014
Сообщения: 2
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию Пиксели, координаты курсора и т.п.

Здравствуйте, уважаемые форумчане. У меня возник такой вопрос: "Как мне получить координаты курсора(желательно пикселя) в определённом окне(конечно же зная "ХЕНДЛ")"?

Вот мои наработки:
Код:
setcursorpos(430, 700);
mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);
GetCursorPos(CursorPoint);
hWin := WindowFromPoint(CursorPoint);
descpixel:= getdc(0);
setcursorpos(764, 657);
while (getpixel(descpixel, mouse.CursorPos.X, mouse.CursorPos.Y)) = 4797409 do
      begin
      keybd_event(ord('D'), 0, 0, 0);
      keybd_event(ord('D'), 0, KEYEVENTF_KEYUP, 0);
      end;
Ответить с цитированием
  #2  
Старый 11.01.2014, 19:28
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

GetCursorPos / ScreenToClient
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 14.01.2014, 11:30
AZelensky AZelensky вне форума
Прохожий
 
Регистрация: 11.01.2014
Сообщения: 2
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
GetCursorPos / ScreenToClient

А как мне переместить мышку на пиксель определённого цвета?
Ответить с цитированием
  #4  
Старый 14.01.2014, 16:19
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

mouse_event
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter