Fechando Form
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
Curtidas 0
Respostas
Afarias
03/09/2003
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+
GOSTEI 0