Mega Code Archive

 

Categories / Delphi / Forms

 

How to change the height and width of a foreign window

Title: How to change the height and width of a foreign window 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;