Ограничение размеров окна
|
|
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; |