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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

{Перехватываем сообщение GetMinMaxInfo и

устанавливаем минимальный размер окна,

используя декларированные константы}

procedure TForm1.WMGETMINMAXINFO( var message: TMessage );

var

mStruct: PMinMaxInfo;

begin

mStruct := PMinMaxInfo(message.lParam);

mStruct.ptMinTrackSize.x := HORIZONTALSIZE;

mStruct.ptMinTrackSize.y := VERTICALSIZE;

message.Result := 0;

end;

{/codecitation}

Добавить комментарий