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

Previous  Top  Next

    
 

 

Необходимо объявить обработчик события для WM_GETMINMAXINFO:

Code:

...

private

{©Drkb v.3(2007): www.drkb.ru}

 

procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);

message WM_GETMINMAXINFO;

 

 

А вот как выглядит сам обработчик:

 

procedure TForm1.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);

begin

Message.MinMaxInfo^.ptMinTrackSize := Point(Width, Height);

Message.MinMaxInfo^.ptMaxTrackSize := Point(Width, Height);

end;

 

 

 

©Drkb::00414

Взято из http://forum.sources.ru

 

Примечание от Vit:

 

Начиная с Дельфи 5 появилось удобное свойство Constrains - специально для ограничесния минимальных и максимальных размеров...