Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
1-42726
RUS1
2002-01-30 15:51
2002.02.14
как достать параметры , которые передаются вместе с exe при его запуске на выполнение


14-42837
XM-AD
2001-12-23 11:14
2002.02.14
Подскажите, что и в какой последовательности запускать!?


1-42728
Mitrofan
2002-01-29 15:10
2002.02.14
Нужна Delhpi 1, кто-нибудь знает где такой антиквариат раздобыть ?


4-42890
Sour
2001-12-16 21:00
2002.02.14
Ресурсы


1-42807
Potemkin
2002-01-31 14:42
2002.02.14
FastReport