Как установить минимальные размеры формуляра?
Если свойство BorderStyle установленно в значение bsSizeable, то размер формуляра можно уменьшать или увеличивать. Иногда, чтобы показывать все необходимые элементы на форме, необходимо установить минимальные размеры формуляра? Следующая процедура позволяет ограничить размеры формуляра.
type TForm1 = class(TForm) procedure wmGetMinMaxInfo(var Msg : TMessage); message wm_GetMinMaxInfo;
procedure TForm1.wmGetMinMaxInfo(var Msg : TMessage);
begin PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.X := 600; PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.Y := 350; end;
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий