Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

Координаты мыши в чужом окне   Найти похожие ветки 

 
DmitriyR   (2006-01-12 07:57) [0]

Подскажите как узнать координаты мыши в чужом окне?
тоесть я знаю как выяснить координаты мыши на рабочем столе или в своей программе а вот как узнать координаты мыши когда она над чужим окном (относительно етого окна) тоесть кордината 0.0 должна быть в левом верхнем углу етого окна.


 
evvcom ©   (2006-01-12 08:35) [1]

Посмотри реализацию TControl.ScreenToClient - ничего сложного.


 
DmitriyR   (2006-01-12 08:45) [2]

Если вас сильно не затруднит можно пример кода, по нему легче разобратся что к чему.


 
evvcom ©   (2006-01-12 09:33) [3]


> можно пример кода, по нему легче разобратся что к чему

Легче разобраться по исходникам VCL. Пример, пожалуйста:
function TControl.ScreenToClient(const Point: TPoint): TPoint;
var
 Origin: TPoint;
begin
 Origin := ClientOrigin;
 Result.X := Point.X - Origin.X;
 Result.Y := Point.Y - Origin.Y;
end;

Только этого недостаточно. Ведь сейчас спросишь, а что внутри ClientOrigin? А весь Controls выкладывать здесь я не собираюсь.


 
DmitriyR   (2006-01-12 10:02) [4]

:) не пасиб я уже немного сам разобрался.
А еще не подскажеш как узнать координаты и размер чужого окна на рабочем столе?
Мне каждий день надо делать работу открыть прогу нажать мышкой неколько кнопок и закрыть ее. Вот и хотел сделать чтоб все ето делалось автоматом. Но так как каждый раз окно открывается в разном месте надо привязыватся к координатам всяким :(


 
evvcom ©   (2006-01-12 11:43) [5]


> А еще не подскажеш как узнать координаты и размер чужого
> окна на рабочем столе?

GetWindowPlacement
GetWindowRect



Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.07 c
1-1135178080
toxa_2006
2005-12-21 18:14
2006.01.29
ХЭширование Метод свёртки


1-1135600351
Barsky
2005-12-26 15:32
2006.01.29
Загрузить процессор. Фантазии не хватает.


1-1135513359
mOOx
2005-12-25 15:22
2006.01.29
Нужно рисовать схему. Канва мигает


1-1135233149
Ups
2005-12-22 09:32
2006.01.29
ShellTreeView with checkbox


3-1132924137
Антоний
2005-11-25 16:08
2006.01.29
Проблема при выборке с некоторыми буквами