Abrir Formulario Executar Processo e Fechar Automaticamente

22/06/2008

11

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

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;



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:

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


Responder

14/03/2009

Pestana_

utilize o [u:10911cc78c]ModalResult[/u:10911cc78c] quando desejar fechar o form.

ModalResult := mrOk;


depois você verifica assim:

if fr_consulta.showmodal = mrOk then
begin
.........
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira