Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Вниз
Минимальные размеры формы Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c
