Jump to content
uniGUI Discussion Forums
Артем

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

Recommended Posts

Добрый день!

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

Поясню.

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

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

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

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

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

Share this post


Link to post
Share on other sites
Just now, Volk65 said:

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

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

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

Share this post


Link to post
Share on other sites

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

Quote

 

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

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

 

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

Share this post


Link to post
Share on other sites
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;

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×