Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

Как ограничить размер формы?   Найти похожие ветки 

 
UserL   (2002-01-31 07:16) [0]

Как сделать так чтоб при изменении размера формы, в минимальную сторону размер менялся только до заданного размера (скажем 500х5000)?


 
MBo   (2002-01-31 07:35) [1]

свойство Constraints


 
UserL   (2002-01-31 08:33) [2]

Спасибо!!!


 
Ghost.   (2002-01-31 09:04) [3]

procedure WMGetMinMaxInfo(var Msg:TMessage); message WM_GETMINMAXINFO;

procedure TFMain.WMGetMinMaxInfo(var Msg: TMessage);
BEGIN
with TWMGetMinMaxInfo(Msg).MinMaxInfo^ do
begin
ptMaxTrackSize := Point(800, 600); // макс. размеры окна
ptMinTrackSize:= Point(400, 200); //минимальные
ptMaxPosition:= Point(50, 55); //позиция при развёртывании
ptMaxSize:= Point(750, 550); //размер при развёртывании
end;
Msg.Result := 1;
END;


 
Johnmen   (2002-01-31 12:12) [4]

>Ghost : правильнее все же так (если не использовать Constraints) :

private
procedure WMGetMinMaxInfo(var M: TWMGetMinMaxInfo);
message WM_GetMinMaxInfo;
...

procedure TForm1.WMGetMinMaxInfo(var M: TWMGetMinMaxInfo);
begin;
inherited;
M.MinMaxInfo^.ptMinTrackSize.X:=...;
M.MinMaxInfo^.ptMaxTrackSize.X:=...;
M.MinMaxInfo^.ptMinTrackSize.Y:=...;
M.MinMaxInfo^.ptMaxTrackSize.Y:=...;
M.MinMaxInfo^.ptMaxPosition.X:=...;
M.MinMaxInfo^.ptMaxPosition.Y:=...;
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
14-42843
sidstar
2001-12-25 14:00
2002.02.14
RX Lib 2.75 и Delphi 6


1-42777
Yuraz
2002-01-31 14:46
2002.02.14
Подскажите, как загрузить картинку в Image не с самого начала координат (0,0; лево-вверх)


3-42652
Voi
2002-01-20 10:24
2002.02.14
Вот задача №2 или продолжение вопроса


14-42859
Awex
2001-12-26 12:36
2002.02.14
Вопрос по Assembler у


1-42716
чайничек
2002-01-28 18:55
2002.02.14
Как писать в Edit однjq из закладок Tabs (TTabControl), и сохранив там запись писать в другой - другое





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