VPF::Клиентские координаты - Форум программистов

sjvov

Дата 10.2.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.1.2006

Репутация: нет
Всего: нет

Вот такая проблема: Нужно найти клиентские координаты окна. Вроде бы ни чего сложного, но не получается...
Делал так:

Код


Function myGetClientCoord(hWindow:Hwnd):Trect;
var WinRect,WinRectGlob:Trect;
    hParent,hParentTest:Hwnd;
begin
   hParent:=hWindow;
   hParent := GetAncestor(hParent,GA_PARENT);
   
   //Глобальные координаты род окна
   GetWindowRect(hParent, WinRect);
   //Глобальные координаты дочернего окна
   GetWindowRect(hWindow, WinRectGlob);   

   // Должны получиться клиентские
   Result.Left:=WinRectGlob.Left-WinRect.Left;
   Result.Top:=WinRectGlob.Top-WinRect.Top;
   Result.Right:=WinRect.Right-WinRectGlob.Right;
   Result.Bottom := WinRect.Bottom-WinRectGlob.Bottom;
end;

Такое ощущение, как будто считается бордер, а он не должен считаться.... или что нить другое.

Это сообщение отредактировал(а) sjvov - 10.2.2006, 10:25

Romikgy

Дата 10.2.2006, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

ScreenToClient
не?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

sjvov

Дата 14.2.2006, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.1.2006

Репутация: нет
Всего: нет

Спасибо. Получилось

Код


Function myGetClientCoord(hWindow:Hwnd):Trect;
var WinRect,WinRectGlob:Trect;
    hParent:Hwnd;
    ClientPoint:TPoint;
begin
   hParent:=hWindow;
   
   //Глобальные координаты
   GetWindowRect(hWindow, WinRectGlob);
   
   //Получаем хэндл родителя
   hParent := GetAncestor(hParent,GA_PARENT);
   
   //Указываем, какие координаты хотим преобразовать
   ClientPoint.X:= WinRectGlob.Left;
   ClientPoint.Y:= WinRectGlob.Top;
   
   //Преобразуем координаты нашего окна, относительно родительского
   ScreenToClient(hParent, ClientPoint);
   
   //Находим ширину и высоту окна
   GetClientRect(hWindow,WinRect);

   //Возвращаем результат
   Result.Left   := ClientPoint.X;
   Result.Top    := ClientPoint.Y;
   Result.Right  := ClientPoint.X + WinRect.Right;
   Result.Bottom := ClientPoint.Y + WinRect.Bottom;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »