Fórum Duvida ao Fechar formulário #376154
20/10/2009
0
Olá pessoal,
O problema é o seguinte, tenho um formulário padrão, onde todas herdão. ok....
Esse formulário padrão chama um outro form em showmodal.. então automaticamente todas cadastros abrem esse outro form...normalzinho..
Nesse segundo form em showmodal tem um botão fechar...eu quero que ao clicar nele de o close nesse formulário e no outro q está em baixo...
Como eu não sei o nome do formulário que chamou. como posso fechar?
Tentei criar uma variavel global, mas não sei que tipo coloco essa variavel..
Se alguem puder ajudar...
Agradeço...
O problema é o seguinte, tenho um formulário padrão, onde todas herdão. ok....
Esse formulário padrão chama um outro form em showmodal.. então automaticamente todas cadastros abrem esse outro form...normalzinho..
Nesse segundo form em showmodal tem um botão fechar...eu quero que ao clicar nele de o close nesse formulário e no outro q está em baixo...
Como eu não sei o nome do formulário que chamou. como posso fechar?
Tentei criar uma variavel global, mas não sei que tipo coloco essa variavel..
Se alguem puder ajudar...
Agradeço...
Edsant
Curtir tópico
+ 0
Responder
Posts
21/10/2009
Lehapan
Teste o ModalResult do 2º formulário.
Exemplo:
no 1º formulário (Form1)
procedure TForm1.RotinaQualquer;
begin
{ Aqui você consegue pegar o retorno do seu 2º formulário }
if Form2.ShowModal = mrCancel then
Form1.Close
;
end;
no 2º formulário (Form2)
procedure TForm2.BotaoFecharClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TForm2.BotaoOkClick(Sender: TObject);
begin
ModalResult := mrOk;
end;
Espero ter ajudado.
Exemplo:
no 1º formulário (Form1)
procedure TForm1.RotinaQualquer;
begin
{ Aqui você consegue pegar o retorno do seu 2º formulário }
if Form2.ShowModal = mrCancel then
Form1.Close
;
end;
no 2º formulário (Form2)
procedure TForm2.BotaoFecharClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TForm2.BotaoOkClick(Sender: TObject);
begin
ModalResult := mrOk;
end;
Espero ter ajudado.
Responder
Gostei + 0
21/10/2009
Marco Salles
não entendo a dificuldade
Apos a chamada ao ShowModal de um close
Por exemplo
Esse formulário padrão chama um outro form em showmodal..
Apos a chamada ao ShowModal de um close
Por exemplo
MyForm.Showmodal; // fechado pelo botao fechar ... close; // fecha o formulario que o chamou o outro form
Responder
Gostei + 0
21/10/2009
Marco Salles
não entendo a dificuldade
Apos a chamada ao ShowModal de um close
Por exemplo
Esse formulário padrão chama um outro form em showmodal..
Apos a chamada ao ShowModal de um close
Por exemplo
MyForm.Showmodal; // fechado pelo botao fechar ... close; // fecha o formulario que o chamou o outro form
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)