Максимальная ширина формы
Вы можете преодолеть ограничение Windows, которое устанавливает минимальную ширину по-умолчанию. Для этого необходимо самим обработать системное сообщение wm_GetMinMaxInfo, которое позволяет задать минимальную ширину окна. Способ работы с этим сообщением состоит в передаче указателя на структуру (в lParam). Вы можете установить максимальный размер окна, размер максимально раскрытого окна, и позицию при его максимизации. Вот пример того, как можно изменить минимальную ширину:
Добавьте следующую строку к частным декларациям вашего наследника от TForm:
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); messagewm_GetMinMaxInfo;
а вот реализация:
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
Msg.MinMaxInfo^.ptMinTrackSize.x := 130;end;
Имейте в виду, что минимальная ширина окна в Windows 95 отличается от аналогичного значения в Windows 3.1. Поскольку Win95 добавляет новые кнопки в область заголовка окна (в случае, если вы определили их использование, например, кнопки Minimize или Maximize), то минимальная ширина немного больше, чем в Windows 3.1. Также следует принять во внимание разные размеры шрифта заголовка.