Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




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




Наверх





Память: 0.72 MB
Время: 0.019 c
4-42901           Anderius              2001-11-17 21:12  2002.02.14  
Как насильно завершить другую программу?


3-42646           --Reporter--          2002-01-17 13:16  2002.02.14  
Проблема с master-detail на сервере приложений


1-42774           Vitek                 2002-01-31 14:15  2002.02.14  
Текстовые компоненты 2


3-42694           Belov                 2002-01-18 15:29  2002.02.14  
Запись картинки в базу


3-42670           Mikhail               2002-01-18 21:42  2002.02.14  
Ответте хоть ради смеха...