Fórum Como saber se um Form foi fechado #236899
09/06/2004
0
Senhores
Tenho a seguinte situação. Um form chama outro form e este outro pede algumas informações e apresenta alguns botões para executar algumas funçoes. Entretanto o usario pode não querer executar estas funções e fechar o form usando o botão padrão se saída X.
A minha dúvida é: Como, no form que chamou o formulário, saber se o formulário chamado foi fechado por opção do usuário.
saudações
Rounilo
Tenho a seguinte situação. Um form chama outro form e este outro pede algumas informações e apresenta alguns botões para executar algumas funçoes. Entretanto o usario pode não querer executar estas funções e fechar o form usando o botão padrão se saída X.
A minha dúvida é: Como, no form que chamou o formulário, saber se o formulário chamado foi fechado por opção do usuário.
saudações
Rounilo
Rounilo
Curtir tópico
+ 0
Responder
Posts
09/06/2004
Aroldo Zanela
Colega,
Por favor, detalhe melhor sua dúvida. A princípio, imagino que poderia resolver no manipulador de evento OnCloseQuery.
Por favor, detalhe melhor sua dúvida. A princípio, imagino que poderia resolver no manipulador de evento OnCloseQuery.
Responder
Gostei + 0
09/06/2004
Rounilo
Tentando ser mais claro coloco abaixo as linhas de código.
procedure TmenuPrin.VisualizarumaDAM1Click(Sender: TObject);
begin
INDOPER:= ´1´;
FrmNumDAM.Caption:=´aaaaaaaaaaaaaaa´;
FrmNumDam.Showmodal;
FrmNumDam.Close;
**** aqui esta o meu problema *****
preciso saber se o usuário, não querendo dar continuidade,
fechou a tela.
Atualmente, como não estou testando nada o FrmShowDam será
executado gerando um erro por necessitar de um dado do form
anterior.
*****************************
FrmShowDam.Left:=18;
FrmShowDam.Top:=75;
FrmShowDam.Height:=468;
FrmShowDam.Width:=771;
FrmShowDam.Showmodal;
end;
Espero ter esclarecido
procedure TmenuPrin.VisualizarumaDAM1Click(Sender: TObject);
begin
INDOPER:= ´1´;
FrmNumDAM.Caption:=´aaaaaaaaaaaaaaa´;
FrmNumDam.Showmodal;
FrmNumDam.Close;
**** aqui esta o meu problema *****
preciso saber se o usuário, não querendo dar continuidade,
fechou a tela.
Atualmente, como não estou testando nada o FrmShowDam será
executado gerando um erro por necessitar de um dado do form
anterior.
*****************************
FrmShowDam.Left:=18;
FrmShowDam.Top:=75;
FrmShowDam.Height:=468;
FrmShowDam.Width:=771;
FrmShowDam.Showmodal;
end;
Espero ter esclarecido
Responder
Gostei + 0
09/06/2004
Aroldo Zanela
Colega,
Veja se é isto que precisa:
Veja se é isto que precisa:
var Retorno: Integer;
begin
Application.CreateForm(TForm2, Form2);
Retorno := Form2.ShowModal;
Case Retorno of
mrCancel: ShowMessage(´Cancelado´);
mrOk: ShowMessage(´Ok´);
mrAbort: ShowMessage(´Abortado´);
end;
Form2.Release;
FreeAndNil(Form2);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)