1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.SizeChangeClick(Sender: TObject);
var parent: hwnd;
p:trect;
begin

parent:= GetParent(HN);

GetWindowRect(HN, P);
label20.Caption:=
'bottom:'+inttostr(p.Bottom)+' - '+
'topleftY:'+inttostr(p.TopLeft.y)+'=HÖHe'+ ^j+
'top:'+inttostr(p.Top)+^J+
^J+
'right:'+inttostr(p.Right)+' + '+
'topleftX:'+inttostr(p.TopLeft.X)+'=BREITe'+ ^j+
'left:'+inttostr(p.Left);

                      // links, oben, breite, höhe, repaint
 MoveWindow(HN, 10, 40, 300, 400, true);

end;