Как узнать, что форма готовится изменить размеры

Written on . Posted in [Delphi] Пользовательский интерфейс. Окна и формы

{Перехватываем сообщение GetMinMaxInfo и устанавливаем минимальный размер окна,}
{используя декларированные константы}
procedure TForm1.WMGETMINMAXINFO( var message: TMessage );
var

mStruct:Info;
begin
mStruct := PMinMaxInfo(message.lParam);
mStruct.ptMinTrackSize.x := HORIZONTALSIZE;
mStruct.ptMinTrackSize.y := VERTICALSIZE;

message.Result := 0;
end;

avr форум