Вниз
Скачать: 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
1-1101750137
Davinchi
2004-11-29 20:42
2004.12.12
PChar TO String


4-1099071933
cerber1
2004-10-29 21:45
2004.12.12
Работает ли мышь? Как поределить програмно?


6-1096735381
Хтз
2004-10-02 20:43
2004.12.12
Как включить или выключить сетвевой интерфейс???


8-1094913239
Zeqfreed
2004-09-11 18:33
2004.12.12
TMemoryStream и JPG


1-1101683635
Кто---то
2004-11-29 02:13
2004.12.12
Можно ли получить листинг своей программы ( экзэшника ) в таком




   Наверх