Ограничение размеров окна
procedure TFMain.WMGetMinMaxInfo(var Msg: TMessage);
BEGIN
with TWMGetMinMaxInfo(Msg).MinMaxInfo^ do begin ptMaxTrackSize := Point(800, 600); // макс. размеры окна ptMinTrackSize:= Point(400, 200); //минимальные ptMaxPosition:= Point(50, 55); //позиция при развёртывании ptMaxSize:= Point(750, 550); //размер при развёртывании end; Msg.Result := 1;END;
Описание обработчика:
procedure WMGetMinMaxInfo(var Msg:TMessage); message WM_GETMINMAXINFO;