1:

procedure OnMessage_GETMINMAXINFO(var Msg:TWMGETMINMAXINFO); message WM_GETMINMAXINFO;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm.OnMessage_GETMINMAXINFO(var Msg:TWMGetMinMaxInfo);
function cp(x,y:Integer):TPoint;
begin
     Result.X := x;
     result.Y := y;
end;
begin
     Msg.MinMaxInfo^.ptMinTrackSize := cp(100, 100);
     Msg.MinMaxInfo^.ptMaxTrackSize := cp(640, 480);

     inherited;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

typedef struct {
    POINT ptReserved;
    POINT ptMaxSize;
    POINT ptMaxPosition;
    POINT ptMinTrackSize;
    POINT ptMaxTrackSize;
} MINMAXINFO;

Members
ptReserved
     Reserved; do not use.

ptMaxSize
     Specifies the maximized width (POINT.x) and the maximized height (POINT.y) of
     the window. For top-level windows, this value is based on the width of the
     primary monitor.

ptMaxPosition

     Specifies the position of the left side of the maximized window (POINT.x) and
     the position of the top of the maximized window (POINT.y). For top-level windows,
     this value is based on the position of the primary monitor.

ptMinTrackSize
     Specifies the minimum tracking width (POINT.x) and the minimum tracking height
     (POINT.y) of the window. This value can be obtained programmatically from the
     system metrics SM_CXMINTRACK and SM_CYMINTRACK.

ptMaxTrackSize
     Specifies the maximum tracking width (POINT.x) and the maximum tracking height
     (POINT.y) of the window. This value is based on the size of the virtual screen
     and can be obtained programmatically from the system metrics SM_CXMAXTRACK and
     SM_CYMAXTRACK.