|
...change the height and width of a foreign window?
|
| Autor:
Thomas Stutz |
| [ Print tip
] | | |
{
The function ChangeSize does the following:
SomeWindow.Height = SomeWindow.Height + dHeight
(where dHeight is change in Height)
SomeWindow.Width = SomeWindow.Width + dWidth
ChangeSize doesn't change the top/left of the specific window.
Die Funktion ChangeSize macht folgendes:
EinFenster.Height = EinFenster.Height + dHeight
(Wobei dHeight die den Höhenunterschied angibt)
EinFenster.Width = EinFenster.Width + dWidth
Die Funktion ChangeSize ändert Top/Left des Fensters nicht.
}
procedure ChangeSize(Handle: Hwnd; dHeight, dWidth: Integer);
var
P: TRect;
DlgWidth: integer;
DlgHeight: integer;
begin
GetWindowRect(Handle, P);
DlgWidth := P.Right - P.Left;
DlgHeight := P.Bottom - P.Top;
MoveWindow(Handle, P.Left, P.Top, DlgWidth + dHeight, DlgHeight + dWidth, True);
end;
|
