Задать размеры формы от главной

[artem_niko]

Добрый день!

Как можно заставить открываться форму, которая бы брала для себя размеры (выоста и ширина) своего Parent?

Поясню.

Есть MainForm, на которой есть кнопка, при нажатии на которую открывается обычная (не LoginForm) форма. Мне нужно, чтобы эта вот открывающаяся форма получила такие свойства:

Height (открывающейся формы)=ClientHeight (от MainForm)

Widht (открывающейся формы)=ClientWidth (от MainForm).

В общем, чтобы размер открывающейся формы зависел от клиентских размеров своего Parent. 

У меня на MainForm в самом верху закреплена UniContainerPanel, т.е. ClientHeight у MaiForm уменьшен на высоту этой UniContainerPanel. Таким образом получается, что открывающаяся через кнопку форму должна быть ниже UniContainerPanel, но по ширине в пределах своего Parent (т.е. в пределах MainForm).

[Volk65]

Установите у формы Align=alClient

[artem_niko]

Just now, Volk65 said:

Установите у формы Align=alClient

Имеете ввиду AlignmentControl=uniAlignmentClient?

У формы нет такого свойства, о котором Вы говорите.

[Tokay]

А что мешает сделать то, что описано?

Quote

 

Height (открывающейся формы)=ClientHeight (от MainForm)

Widht (открывающейся формы)=ClientWidth (от MainForm).

 

присвоить просто после открытия (Show), либо перед (ShowModal), либо через метод открываемой формы, которая вначале присвоит размеры, потом сделает Show/ShowModal, смотря что нужно.

[artem_niko]

6 hours ago, Tokay said:

А что мешает сделать то, что описано?

присвоить просто после открытия (Show), либо перед (ShowModal), либо через метод открываемой формы, которая вначале присвоит размеры, потом сделает Show/ShowModal, смотря что нужно.

Ну, вот так вот я попробовал присвоить уже после открытия размеры:

procedure TUFormDM.UniFormShow(Sender: TObject);
begin
  UFormDM.Height:=Parent.ClientHeight;
  UFormDM.Width:=Parent.ClientWidth;
end;

А вот так вызываю форму свою:

procedure TMainForm.UButton_StartClick(Sender: TObject);
begin
    UFormDM.Parent:=MainForm;
    UFormDM.ShowModalN();
end;

И это не работает...