Советы по Delphi
Ограничение размеров окна
Своим опытом делится Nomadic:
|
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; |
[001737]
