Размер дочерних окон MDI-интерфейса

← →
Trof (2002-11-08 16:01) [0]

Добрый день. Пишу приложение с MDI-интерфейсом и хотелось бы, что бы при создании дочерних окон они имели размер, заданный при проектировании. Как этого можно добиться?

← →
lats © (2002-11-10 11:49) [1]

if (MDIChildCount<2) then
begin
Child := TMDIChild.Create(Application);
Child.Caption := Name;
ChildD := TMDIChild.Create(Application);
ChildD.Caption := Name;
ChildD2 := TMDIChild.Create(Application);
ChildD2.Caption := Name;
RaspredWin();
end;

Child.Top:=0;
Child.Left:=0;
Child.Height:=(MainForm.ClientHeight-74) div 2;
Child.Width:=(MainForm.ClientWidth-105) div 2;
Child.Image1.Height:=Child.Height-30;
Child.Image1.Width:=Child.Width-20;
Child.Shape1.Visible:=false;

и т.д.

ChildForm.Position:=poDefaultPosOnly

Размер дочерних окон MDI-интерфейса Найти похожие ветки