Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: 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 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
14-1101237650
GanibalLector
2004-11-23 22:20
2004.12.12
Невозможно найти удаленный сервер


14-1100796664
matt
2004-11-18 19:51
2004.12.12
InterBase 6


1-1101887144
Term
2004-12-01 10:45
2004.12.12
При пересылке данных через модем, файлы больше мегабайта пересыла


14-1101104384
Sash
2004-11-22 09:19
2004.12.12
w98 wxp


1-1101732165
Bobby Digital
2004-11-29 15:42
2004.12.12
Restart