Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.57 MB
Время: 0.048 c
14-1101135499
han_malign
2004-11-22 17:58
2004.12.12
Программная запись CD/DVD, под Windows 2000/XP - есть библиотеки?


1-1101820875
Бар
2004-11-30 16:21
2004.12.12
Мастера, как программно переключать регист рус/лат?


1-1101608873
noob
2004-11-28 05:27
2004.12.12
Event


3-1100590318
denis24
2004-11-16 10:31
2004.12.12
Удаление картинки в поле blob


1-1101817874
Erik1
2004-11-30 15:31
2004.12.12
Как отправить сообщение всем активным формам, одного класса?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский