Sistema n�o fecha !!! fica residente na mem�ria

Question

alo...preciso de uma grande for�a...num sistema que estou desenvolvendo...tipo, tava tudo normal... agora esta dando um erro estranho...quando clico pra fechar o sistema...ele fecha tudo certinho... m...

Cabelo · Answer

Caro AmigoPreciso saber como vc cria seus Forms, se ele est�o declarados para abrir automaticamente com o projeto fa�a o seguinte :No bot�o ou menu que vc chama um determinado form vc dever� colocar o seguinte :Application.CreateForm(TForm, Form);Form.ShowModal;Form.Release;estes comandos ira criar o seu form na mem�ria.Mostrar na tela pelo m�todo Modal (Tipo Mensagem);Descarregar da mem�ria todo o form;N�o esque�a de Tirar da cria��o autom�tica os form que ser�o declarados, indo no menu Projects, item Options, paleta Forms, deixar somente o m�dulo de dados(se tiver) e o form Principal;Espero ter ajudado...Obs : responda o resultado por favorT� +Cabelo...

Bampavao · Answer

Tente Action := caFree;flancamentos := NIL;...

Seven · Answer

amigos...
valeu... mas nao deu certo !!!

tipo,
BAMPAVAO...

o action := caFree

reportou esse erro na hora de compilar: �[Error] TPrincipal.pas(403): Incompatible types: �TBasicAction� and �TCloseAction��

cabelo..

os forms nao estao declarados para abrirem automaticamente... tentei o release tb e nao funcinoou :/

e ta exatamente assim:

try
Application.CreateForm(Tflancamentos, flancamentos);
flancamentos.showmodal;
finally
//flancamentos.free;
end;

mesmo assim obrigado ... se tiverem mais alguma ideia..
to precisando muito..

te +

Cabelo · Answer

N�o use o Try e no lugar de .free, coloque .release;...

Seven · Answer

blz..cabelo..o try eu sempre usei... e nunca tive problema...tb tentei sem e nao consegui sucesso...nem o release...tipo,a questao eu descobri...era um QUICKREPORT... putz... tirei uma copia do sistema e fui apagar componente por componente do form e ir compilando... pra ver onde estava o erro..e logo de cara o delphi travou quando tentei deletar o QUICKREPORT... ja desinstalei o COMPOMENTE QUICKREP... reinstalei e o erro continuaassim... depois de desinstalar o componente... consegui remover o QUICKREPORT que estava dando erro.. da� compilei.. .e tudo funcionou perfeitamente.reinstalei o compontente e quando crio outro QUICKREPORT... fica tudo certo denovo !soh q vai dar uma canseira pra fazer esse relatorio novamente.mas blz... vou verificar... quando conseguir resolver e descobrir exatamente o q ocorrou eu posto aqui.valeu cabelo_uni e a todos pela for�a...

Renaldo · Answer

procedure TfrmPrincipal.Pedido1Click(Sender: TObject);
begin
if varPedidos = True then
begin
frmPedidos.BringToFront;
Abort;
end;
frmPedidos:=TfrmPedidos.Create(Application);
frmPedidos.Show;
end;

procedure TfrmPedidos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
varPedidos:=False;
Action:=CaFree;
frmPedidos:=nil;
end;

procedure TfrmPedidos.FormCreate(Sender: TObject);
begin
varPedidos:=True;
end;

� assim que eu uso, a vari�vel global varPedidos � s� para saber se a janela est� aberta. Estou usando janelas m�e e filho.

Espero ter ajudado.

Seven · Answer

ronaldo...legal a sua dica...pois uso o SHOWMODAL... acho que da forma q vc falou fica mais profissional...vou tentar mudar para esse modo de trabalho.obrigado pela dica...o outro problema foi resolvido da forma que falei..depois de muita dor de cabe�a e tal...valeu a todost� +...

F�rum Sistema n�o fecha !!! fica residente na mem�ria #187285