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

{Перехватываем сообщение 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;

 
« Предыдущая статья   Следующая статья »