Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Ограничение на размеры формы

Ограничение на размеры формы

Используется обработка Windows сообщения WM_GETMINMAXINFO
Например, ограничение на уменьшение размера формы и на увеличение ее по высоте:

//-----------------------------------------------------
//       ограничение на изменение размера формы
//-----------------------------------------------------
procedure TFormBarParity.WMGetMinMaxInfo(var Message : TMessage);
type
  PTMinMaxInfo = ^TMinMaxInfo;
begin
  with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize
    do begin
      x := 400;
      y := 45;
    end;

  with PTMinMaxInfo(Message.LParam)^.ptMaxTrackSize
    do begin
      y := 45;
    end;

  inherited;
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru