Fórum Fechando Form #179583
03/09/2003
0
boa tarde pessoal, estou com o seguinte problema, tenho um form que estou usando para cadastrar uma ocorrencia e logo após feito esse cadastro o sistema dá uma mensagem de cadastro concluído e chama uma outra tela de movimentação. a dúvida é a seguinte, como fechar o form que estava usando e chamar o novo automaticamente?
obs: já tentei colocar showModal e depois close , não deu certo.
obs: já tentei colocar showModal e depois close , não deu certo.
Mineiro
Curtir tópico
+ 0
Responder
Posts
03/09/2003
Afarias
uma solucao e fazer o procedimento q chamou o 1o form, chamar tambem o 2o -- quando o primeiro fechar::
ex::
procedure Txxx.Tal;
begin
form1 := tform1.create(self)
with form1 do
try
showModal;
if (modalResult = mrOK) then // ou outra variavel do form1
with tform2.create(Self) do
try
showModal;
finally
free;
end;
finally
free;
end;
end;
T+
ex::
procedure Txxx.Tal;
begin
form1 := tform1.create(self)
with form1 do
try
showModal;
if (modalResult = mrOK) then // ou outra variavel do form1
with tform2.create(Self) do
try
showModal;
finally
free;
end;
finally
free;
end;
end;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)