Como abri uma form
atrás de um outro form
já aberto? Esse form
que está aberto tem um tempo para fechar, quando fechar, preciso que o segundo form
esteja aberto de forma modal.
2 Respostas
abra normalmente e use o comando SendToBack para enviar para trás
form.show;
form.SendToBack;
-
valeu pela dica, só que quando fecha o form que esta na frente ele esta indo para traz de tela principal o segundo form– Vale3/07/2021 às 13:37
-
pode fazer tratamentos para corrigir, tenta usar o BringToFront no onClose 3/07/2021 às 13:45
Utilize a propriedade PopupMode e PopupParent dos formulários.
Considere 3 Formulários:
FormPrincipal é o formulário principal;
FormBackend é o formulário que deverá ser Modal
e ficar por trás do FormCadastro;
FormCadastro é o formulário que aciona FormBackend
, mas que deve ficar acima desse FormBackend
;
Considere que a ordem de chamada dos formulários será:
FormPrincipal -> FormCadastro -> FormBackend
Considere que a ordem de apresentação dos formulários deve ser:
1 FormCadastro
2 FormBackend
3 FormPrincipal
Utilize as propriedades PopupParent
e PopupMode
para resolver a ordem das janelas.
Segue tradução de trecho da documentação oficial:
A propriedade PopupMode controla como o formulário de nível superior se comporta em relação ao estilo WS_POPUP do Windows. Uma janela que possui o estilo WS_POPUP está sempre acima de seu "proprietário" na ordem Z. Você pode usar a propriedade PopupMode em conjunto com a propriedade PopupParent para evitar a aparência de um aplicativo travado causado por um diálogo modal aparecendo atrás de outro formulário na tela.
Leia mais na documentação oficial: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Forms_TForm_PopupMode.html
Propriedade alterada em FormBackend:
PopupMode := pmExplicit;
PopupParent := FormPrincipal;
Propriedade alterada em FormCadastro:
PopupMode := pmExplicit;
Procedure alterando ordem pelo PopupParent:
procedure TFormCadastro.butAtivarBackendClick(Sender: TObject);
begin
FormCadastro.PopupParent := FormBackend;
FormBackend.PopupMode:=pmAuto;
FormBackend.ShowModal;
end;
Projeto de teste: Projeto teste PopupParent