Abrir Formulario Executar Processo e Fechar Automaticamente
22/06/2008
0
Ola Pessoal, preciso da ajuda de Vcs...
Tenho Um Formulario aberto que abre outro, assim que o outro formulario abre ele executa uma tarefa e tem que fechar automaticamente e voltar para o que abriu; como posso fazer isso, ja tentei Free, Hide, Close, Destroy mais sempre que ele volta para o formulario que abriu ele o Form fica desabilitado e nao segue sua rotina que deveria assim que o segundo fechasse...
segue ai abaixo como estou abrindo o segundo Form
Tenho Um Formulario aberto que abre outro, assim que o outro formulario abre ele executa uma tarefa e tem que fechar automaticamente e voltar para o que abriu; como posso fazer isso, ja tentei Free, Hide, Close, Destroy mais sempre que ele volta para o formulario que abriu ele o Form fica desabilitado e nao segue sua rotina que deveria assim que o segundo fechasse...
segue ai abaixo como estou abrindo o segundo Form
with TFEntradaMercadoria.Create(Application) do
try
// Ele vai executar e Fechar pq no evento
//OnActive eu verifico se a variavel abairo e True
TransferenciaAutomaticaSaida:= True;
EditCodUnidade.Text:= UnidadeDestino;
EditCodUnidadeExit(nil);
EditCodProduto.Text:= Produto;
EditCodProdutoExit(nil);
EditQuantidade.Text:= Quantidade;
ShowModal;
finally
Free;
Screen.Cursor := crDefault;
end;
Cd.wagner.sena
Curtir tópico
+ 0
Responder
Posts
25/06/2008
Brunodsr
Desculpa cara.. mas n entendi.
Se vc quer chamar um form, executar uma porcao de tarefas nesse novo form aberto, fecha-lo e voltar a executar as tarefas normalmente no form original, basta usar o novo form como modal.
Tipo:
Espero ter ajudado
Se vc quer chamar um form, executar uma porcao de tarefas nesse novo form aberto, fecha-lo e voltar a executar as tarefas normalmente no form original, basta usar o novo form como modal.
Tipo:
FrFilho := TFrFilho.Create(self); If FrFilho.ShowModal = MrOk then begin .. .. .. end;
Espero ter ajudado
Responder
09/03/2009
Jean Wetter
Olá,
Tenho uma tela de cadastro que chama uma tela de consulta que fecha sozinha quando encontra só um resultado e carrega uma variavel global que preenche os campos da minha tela de cadastro.
Código:
Fr_consulta:= TFr_consulta.Create(Application);
fr_consulta.showmodal;
ed_rua.Text := inttostr(Fr_principal.intparam)
a tela não fecha automaticamente por causa do showmodal...
o que posso fazer pra tela fechar em showmodal
Tenho uma tela de cadastro que chama uma tela de consulta que fecha sozinha quando encontra só um resultado e carrega uma variavel global que preenche os campos da minha tela de cadastro.
Código:
Fr_consulta:= TFr_consulta.Create(Application);
fr_consulta.showmodal;
ed_rua.Text := inttostr(Fr_principal.intparam)
a tela não fecha automaticamente por causa do showmodal...
o que posso fazer pra tela fechar em showmodal
Responder
14/03/2009
Pestana_
utilize o [u:10911cc78c]ModalResult[/u:10911cc78c] quando desejar fechar o form.
depois você verifica assim:
if fr_consulta.showmodal = mrOk then
begin
.........
end;
ModalResult := mrOk;
depois você verifica assim:
if fr_consulta.showmodal = mrOk then
begin
.........
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
