![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер mdichild окна
Саша © (2002-04-23 10:30:00)Как заставить создаваться mdichild окно, не со стандартным размером, а с заданным мной. Спасибо всем кто поможет.
sunwheel (2002-04-23 13:43:00) [1]private
{ Private declarations }
procedure WMGetMinMaxInfo(var Message : TMessage); message WM_GETMINMAXINFO;
...
procedure TForm1.WMGetMinMaxInfo(var Message: TMessage);
type
PTMinMaxInfo = ^TMinMaxInfo;
begin
with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize
do begin
x := Constraints.MinWidth;
y := Constraints.MinHeight;
end;
with PTMinMaxInfo(Message.LParam)^.ptMaxTrackSize
do begin
x := Constraints.MaxWidth;
y := Constraints.MaxHeight;
end;
inherited;
end;
Игорь Шевченко (2002-04-23 11:33:00) [2]День добрый,
На событии OnShow этого окна устанавливать его Width и Height
С уважением,