Programa � finalizado mas fica executando

Question

Pessoal Ol�!Estou com o seguinte problema, ao fechar minha applicat��o ela ainda fica executando como se tivesse algum processo pendente.Mas n�o consigo ver o que eh.O programa � estruturado por formu...

Eneblis · Answer

Corrigindo...Ele n�o estava dando esse problema... mas ......

Marco Salles · Answer

[code:1:3e1cc7f99a]Try Application.Terminate; Finally End; [/code:1:3e1cc7f99a]e assim mesmo que esta  :?:  :?:  :?:  :?: E onde esta eesse c�digo  :?:  :?:  :?: Em qual evento  :?:  :?:  :?:...

Eneblis · Answer

O c�digo encontra-se no OnClose do Form Principal...

Eu estou usando forms MDI...

Mas percebi que isso esta acontecendo depois que fiz alguns relat�rios do RAVE...

:cry: Eu so gostaria de finalizar o programa, para que ele saia da mem�ria...

Silbene.

Pezzin · Answer

Eu n�o trabalho com MDI.Tenho relat�rios em Rave e Quick.No OnClose do Modulo Principal eu mando fechar todas as tabelas do meu Data Module.Uso Action:=CaFree no OnClose nos meus Forms de Cadastro e Movimento....

Marco Salles · Answer

[quote:0286ac8657]E onde esta eesse c�digo [/quote:0286ac8657][quote:0286ac8657]O c�digo encontra-se no OnClose do Form Principal...[/quote:0286ac8657] [quote:0286ac8657][code:1:0286ac8657]Try Application.Terminate; Finally End;  [/code:1:0286ac8657]e assim mesmo que esta  :?:  :?:  :?: [/quote:0286ac8657]Voce nun respondeu  :cry:  :cry:  :cry:  O c�digo e esse mesmo ??? So tem isso no Onclose do formPrincipal  :?:  :?:  N�o to entendendo porque n�o tem nada abaixo do Finally  :?:  :?:...

Eneblis · Answer

Desculpe eu estava testando... com Try...
Mas no form principal... est� assim:
[b:3d01a3160d]
procedure Tfmenu.FormClose(Sender: TObject; var Action: TCloseAction);
var x: Byte;
begin
if MDIChildCount > 0 then
for x := 0 to Pred(MDIChildCount) do MDIChildren[x].Close;
dm.ConexaoGefin.Connected := False;
Application.Terminate;
end;[/b:3d01a3160d]

No principal... est� assim:
[u:3d01a3160d]
begin
fsplash := Tfsplash.create(Application);
fsplash.Show;
fsplash.Update;
Application.Initialize;
Application.CreateForm(Tdm, dm);
Application.CreateForm(Tfmenu, fmenu);
fsplash.Hide;
fsplash.Free;
Application.Run;
end.[/u:3d01a3160d]

Marioguedes · Answer

�s vezes sou atormentado com este problema devido a um TTimer, que n�o costumo usar e TThreads, que uso bastante...Talvez seja uma dica....

Massuda · Answer

N�o sei se isso vai resolver seu problema, mas fa�a estas altera��es...

// no form principal
procedure Tfmenu.FormClose(Sender: TObject; var Action: TCloseAction); 
var x: Byte; 
begin 
  if MDIChildCount > 0 then 
    for x := Pred(MDIChildCount) downto 0 do 
      MDIChildren[x].Close; 
  dm.ConexaoGefin.Connected := False; 
end; 

// no projeto
begin 
  fsplash := Tfsplash.create(Application); 
  ...
  Application.Run; 
  Application.Terminate; 
end.

Com rela��o ao timer, experimente desativar o timer no OnClose/OnDestroy do form.

Com rela��o �s threads, possivelmente elas � que est�o causando o problema. Voc� tem certeza que as threads s�o encerradas quando voc� fecha seu programa?

F�rum Programa � finalizado mas fica executando #296729