Минимальные размеры формы

← →
DDDeN (2004-11-29 12:24) [0]

Как сделать, чтобы форма могла уменьшаться и увеличиваться при изменении ее размеров только до определенного размера?

← →
MBo © (2004-11-29 12:28) [1]

Constraints

← →
fashionguide © (2004-11-29 12:36) [2]

а по подробнее, плз. :)

← →
DDDeN (2004-11-29 12:49) [3]

Я бы тоже хотел узнать

← →
Molchanov (2004-11-29 12:57) [4]

WM_GETMINMAXINFO

← →
ASoft (2004-11-29 12:58) [5]

Constraints - в инспекторе свойств формы: установить значения высоты и ширины формы и все.

← →
DDDeN (2004-11-29 13:07) [6]

2 ASoft

Да-а-а-а... Эта штука точно работает!

2 Molchanov

Это сообщение тоже можно использовать - нашел кусок кода и не знаю что с ним делать. Вот он:

Procedure TForm1.WMGetMinMaxInfo(var Message : TMessage);
type
PTMinMaxInfo = ^TMinMaxInfo;
begin
with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize
do begin
x := 450;
y := 300;
end;
inherited;
end;

Если знаете как ЭТО работает (или не работает - что в полне вероятно), объясните мне плз.

← →
Manfred8 (2004-11-29 13:23) [7]

Ну это переопределенный обработчик WM_GETMINMAXINFO, изменяет минимальный размер на 450/300 и вызывает исходный обработчик этого сообщения.

В форме добавь в объявление
procedure WMGetMinMaxInfo (var Message:TMessage);message WM_GETMINMAXINFO;

и получишь то что надо

← →
Molchanov (2004-11-29 13:24) [8]

2 DDDeN [6]
TForm1 = class(TForm) ... private procedure GeMinMaxInfo(var AMessage: TMessage); message WM_GETMINMAXINFO; ... procedure TForm1.GeMinMaxInfo(var AMessage: TMessage); begin with PMINMAXINFO(AMessage.LParam)^ do begin ptMinTrackSize.x := MinW; //Минимальная ширина ptMinTrackSize.y := MinH; //Минимальная высота //ptMaxTrackSize - максимальные размеры //ptMaxSize - размеры при WindowState = wsMaximized //ptMaxPosition - координаты левого верхнего угла при WindowState = wsMaximized end end;

Минимальные размеры формы Найти похожие ветки