Duvida ao Fechar formulário

Delphi

20/10/2009

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...


Edsant

Edsant

Curtidas 0

Respostas

Lehapan

Lehapan

20/10/2009

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.


GOSTEI 0
Marco Salles

Marco Salles

20/10/2009

não entendo a dificuldade

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



GOSTEI 0
Marco Salles

Marco Salles

20/10/2009

não entendo a dificuldade

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



GOSTEI 0
POSTAR