Abrir Formulario Executar Processo e Fechar Automaticamente
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
Curtidas 0
Respostas
Brunodsr
22/06/2008
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
GOSTEI 0
Jean Wetter
22/06/2008
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
GOSTEI 0
Pestana_
22/06/2008
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;
GOSTEI 0