Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
2-1137266931
Tonich
2006-01-14 22:28
2006.01.29
Динамический массив


6-1129401928
Black-Grin
2005-10-15 22:45
2006.01.29
NMFTP вызов LIST


1-1135367246
oleg_
2005-12-23 22:47
2006.01.29
Процедура отъедает GDI handle


2-1135596187
kukushka-Q
2005-12-26 14:23
2006.01.29
Перестает работать MS Access база с dll на Delphi на другом компе


2-1136455342
Sandman29
2006-01-05 13:02
2006.01.29
TDBGrid.DefaultDrawColumnCell




   Наверх