Главная страница
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.043 c
2-1136757545
Фродо )
2006-01-09 00:59
2006.01.29
Работы с большими таблицами данных.


4-1132573751
JLes
2005-11-21 14:49
2006.01.29
Печать через DLL и управление принтером


2-1136568214
Aleks
2006-01-06 20:23
2006.01.29
подскажите пожалуйсто как программно управлять архиватором


3-1133512349
salexn
2005-12-02 11:32
2006.01.29
Ассинхронное получение данных в TClientDataSet


15-1136730921
Новичоккк
2006-01-08 17:35
2006.01.29
Перевод с румынского