Советы по Delphi

         

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


Ну примерно так:

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

[000101]



Содержание раздела