Определение размеров компонента и положения по хендлу

[Marsel737]

Всем привет.

Кто нибудь подскажет, как узнать размеры компонента и его положение по хендлу?

[BOBAH13]

GetParent, GetWindowRect ? Тяжело все таки...

[Александриус]

1)

размеры компонента

-
Функция SetParent
Описание: function SetParent(WndChild, WndNewParent: HWnd): HWnd;
Изменяет pодителя дочеpнего окна на WndNewParent.
Параметры:
WndChild: Идентификатоp дочеpнего окна.
WndNewParent: Идентификатоp pодительского окна.
Возвpащаемое значение:Пpедыдущее pодительское окно.
2)

положение по хендлу

-
Функция GetWindowRect
Описание:function GetWindowRect(Wnd: HWnd; var Rect);
Считывает в ARect pазмеpности огpаничивающего пpямоугольника окна (в кооpдинатах экpана).
Параметры:
Wnd: Идентификатоp окна.
Rect: Пpинимающая стpуктуpа TRect.

[Marsel737]

BOBAH13, Александриус, спасибо за помощь. Но я не пойму, при чём тут GetParent/SetParent? И почему ниже приведенный код не снимает скрин "как надо", т.е. не с Rect.Left, Rect.Top?

procedure TfrmMain.GetPrintScreen(AWnd: HWND);
var
  BMP: TBitMap;
  Rect: TRect;
begin
  BMP := TBitMap.Create;
  BMP.Height := 600;
  BMP.Width := 800;
  GetWindowRect(AWnd, Rect);
  BitBlt(BMP.Canvas.Handle, Rect.Left, Rect.Top, BMP.Width, BMP.Height, GetDC(AWnd), 0, 0, SrcCopy);
  BMP.SaveToFile('Screen.bmp');
  BMP.Free;
end;

[Человек_Борща]

потому что нужно получать Height и wight компонента..

Left и To абсолютно не то..

[Marsel737]

Человек_Борща, если у меня не "то", то как будет "то"?

[Человек_Борща]

updated

можно проще..
получаем хендл компонента..
и вычисляем ширину..
Право-лево = ширина
Вверх-низ = высота

[Marsel737]

Человек_Борща, вот это ты дело говориш!! Как я сам не додумался. А как же быть с положением компонента сверху и слева?

[Человек_Борща]

что так сложно?

var
HWND:HWND;
Rc:Trect;
begin
GetWndowRect(HWND,Rc);
Label1.Caption:=IntToStr(Rc.Right-Rc.Left); //ширина Wight
Label1.Caption:=IntToStr(Rc.Bottom-Rc.Top); //высота Height
end;

Rc.Left положение слева
Rc.Top положение сверху

Do you understand?

[Marsel737]

Человек_Борща, ты мой вопрос перечитай прежде чем писать "Do you understand?" и так далее в таком же роде.

Сообщение от Марсель

И почему ниже приведенный код не снимает скрин "как надо", т.е. не с Rect.Left, Rect.Top?

Сообщение от Марсель

А как же быть с положением компонента сверху и слева?

procedure TfrmMain.GetPrintScreen(AWnd: HWND);
var
  BMP: TBitMap;
  Rect: TRect;
begin
  BMP := TBitMap.Create;
  GetWindowRect(AWnd, Rect);
  BMP.Height := Rect.Bottom - Rect.Top;
  BMP.Width := Rect.Right - Rect.Left;
  BitBlt(BMP.Canvas.Handle, Rect.Left, Rect.Top, BMP.Width, BMP.Height, GetDC(AWnd), 0, 0, SrcCopy);
  BMP.SaveToFile('Screen.bmp');
  BMP.Free;
end;