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

Вниз

Как определить позицию чужого окна БЕЗ РАМКИ (рабочую область)?   Найти похожие ветки 

 
kalexi   (2010-01-25 20:17) [0]

Сабж. Т.е допустим

GetWindowRect(hWindow, r);

дает позицию 100;100 (top;left). Тогда GetPixel(DC, top, left) определит цвет не рабочей области формы а Border"а. Кам можно определить положение рабочей области формы?


 
kalexi   (2010-01-25 20:43) [1]

GetClientRect - top и left = 0


 
Игорь Шевченко ©   (2010-01-25 22:49) [2]


> GetClientRect - top и left = 0


Было бы странно обратное.

procedure TForm1.Button1Click(Sender: TObject);
var
 Rect: TRect;
 WinRect: TRect;
begin
 Rect := ClientRect;
 GetWindowRect (Handle, WinRect);
 MapWindowPoints(Handle, HWND_DESKTOP, Rect, 2);
 OffsetRect(Rect, -WinRect.Left, -WinRect.Top);
 ShowRect(Rect);
end;


 
Игорь Шевченко ©   (2010-01-26 02:24) [3]

Плохо прочитал вопрос.

Для того, чтобы найти абсолютные координаты клиентской части окна hWnd по его известному ClientRect (0-0, clientwidth-clientheight), достаточно одного вызова MapWindowPoints (hWnd, HWND_DESKTOP, ClientRect, 2);



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

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

Наверх




Память: 0.47 MB
Время: 0.104 c
15-1329244892
Lamer@fools.ua
2012-02-14 22:41
2013.03.22
Странное поведение CHOICE (batch file)


15-1350966507
И. Павел
2012-10-23 08:28
2013.03.22
Чужая админка сайта или своя?


15-1342858667
Inovet
2012-07-21 12:17
2013.03.22
Странная информация о количестве участников


3-1285160032
yurikon
2010-09-22 16:53
2013.03.22
Событие по смене записи


2-1339576883
Seally
2012-06-13 12:41
2013.03.22
Делфи не признает AdvStringGrid