popup form

[LogSistemas01]

Hello 

 

I have a form where it appears as a popup, with the Show routine. It is invoked by a button inside a TabSheet. I wanted to know how I do to link this form to this tabsheet, that is, when changing tabsheet, it hides, when it comes back to it, it appears, because it will be in the tabsheet.

 

 

[LogSistemas01]

How to put a image here ?

Insert other media doest work

[Sherzod]

Hello,

Can you please explain what you wanted in more detail?

And please specify which edition and build of UniGUI are you using?

[LogSistemas01]

As the picture below 

My form is positioned below the "Adicionar" button and opened by the Show command.

It can be found in the "Outros Dados" tabsheet in "PageControl_X" which is inside the "Cadastro de Pessoa" Screen, which is also inside a TabnSheet in "PageControl_Y"

What I wanted is that when changing the tabsheet of PageControl_X or PageControl_Y, if the form is visible, the form would hide and when returning to the correct TabSheet, it would present again.

I can even do this in the PageControl onChange event by calling the Hide option. but I'm having to have control variables for this, as the forms increase this can complicate it a little.

If there were some way through web language to make it more automatic would be better.

That is what I need, I hope it has become clear.

 

 

[zhyhero]

frm.parent:=atabsheet

[LogSistemas01]

Unigui version: 1.90.0.1514

[LogSistemas01]

7 hours ago, zhyhero said:

frm.parent:=atabsheet

Doesnt work!

Not even show the form.

I call like this:

  FrmSelecaoGenerica
    .MostraEmbaixoDoComponente(btnAdicionarTipoPessoa, True)
    .BuscaTiposPessoas
    .Show();

 tye like this:

  FrmSelecaoGenerica
    .MostraEmbaixoDoComponente(btnAdicionarTipoPessoa, True)
    .BuscaTiposPessoas;

  FrmSelecaoGenerica.Parent := abaOutrosDados;
  FrmSelecaoGenerica.BringToFront;
  FrmSelecaoGenerica.Show();

 

[zhyhero]

you need  create form

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  x: TUniform1;
begin
  x := TUniform1.Create(Uniapplication);
  x.Parent := self.UniTabSheet2;
  x.Show;
end;

 

[LogSistemas01]

It worked.

But, it is not positioned where I need it.

If I take the parent out, I stay where I need to be, he puts himself in, he doesn't obey.

How can I do this?
I think it would be extclient routine

[LogSistemas01]

it worked.

Form.Position := poDefault;