Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
14-1100847662
MBo
2004-11-19 10:01
2004.12.12
Пятница. Возвращение Васи Пупкина и другие задачки ;)


3-1100224787
kostan
2004-11-12 04:59
2004.12.12
Отлов в InterBase DeadLock через OnUpdateError не помогает


1-1101781291
dolphin
2004-11-30 05:21
2004.12.12
пользовательский класс >>перегрузка базовых процедур


3-1100435214
Алексей
2004-11-14 15:26
2004.12.12
красивый DBGrid


4-1098771740
Artemius
2004-10-26 10:22
2004.12.12
Глюк при постановке в очередь печати.




   Наверх