Главная страница
    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.56 MB
Время: 0.05 c
14-1101056005
K@M
2004-11-21 19:53
2004.12.12
Широковещание


6-1096703357
Pat
2004-10-02 11:49
2004.12.12
FTP протокол. Канал данных


1-1101161742
Bobby Digital
2004-11-23 01:15
2004.12.12
Listbox


1-1101484613
GOgo
2004-11-26 18:56
2004.12.12
Заставка


3-1100507302
Death
2004-11-15 11:28
2004.12.12
DBGrid. Отображение данных в полях





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский