Если свойство 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;  

Добавлено: 31 Июля 2018 21:52:15 Добавил: Андрей Ковальчук Нравится 0

Добавить