Советы по 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]



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