Размер mdichild окна

← →
Саша (2002-04-23 10:30) [0]

Как заставить создаваться mdichild окно, не со стандартным размером, а с заданным мной. Спасибо всем кто поможет.

← →
Игорь Шевченко © (2002-04-23 11:33) [1]

День добрый,

На событии OnShow этого окна устанавливать его Width и Height

С уважением,

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;

Размер mdichild окна Найти похожие ветки