Possivelmente então, além dos Forms, está tendo outro "vazamento" de memória. DataSet abertos sem necessidade, objetos que são criados e não são posteriormente distruídos são exemplos clássicos e difíceis de encontrar no programa.
Experimente rodar o sistema com um medidor de recursos e observa onde e quando a memória RAM atinge picos. O programa dá o erro de estouro de memória em algum lugar em particular, ou em toda a aplicação? Um boa idéia seria depurar a aplicação (com F7) no trecho onde ocorre o erro. Aliás, o mais correto no código que você passou é Form := TForm.Create(Self); try Form.ShowModal; finally // Assim o release SEMPRE será executado quando ShowModal retornar Form.Release; end; Espero ter ajudado Francisco Thiago de Almeida Enter&Plug Informática Divisão: Desenvolvimento e Banco de dados MSN: [EMAIL PROTECTED] Skype: enterplug_thiago ----- Original Message ----- From: "Catiúscia A. Barrilli da Cruz" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Friday, June 10, 2005 10:46 AM Subject: RES: [delphi-br] Fechar Form Eu coloquei assim, segundo sugestões dos amigos: Form := TForm.Create(Self); Form.ShowModal; Form.Release; Action := CaFree Não deu mais o erro !!!!!!! Obrigada. Cati "...Não pense de si mesmo além do que convém..." Rm 12.3 Nada está fora do alcance da oração, exceto o que está fora da vontade de Deus. -------Mensagem original------- De: Walter Alves Chagas Junior Data: 06/10/05 09:59:11 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Fechar Form Eu não coloco. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: Odair [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 9 de junho de 2005 16:12 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Fechar Form > > > Walter, eu sempre faço extamente assim como vc "falou", porém > não coloco mais nada no OnClose, ainda assim é necessario > mais lago no OnClose? > Tipo action caFree?? Isso já não seria mais necessario não?? > > Odair > > > ----- Original Message ----- > From: Walter Alves Chagas Junior > To: 'delphi-br@yahoogrupos.com.br' > Sent: Thursday, June 09, 2005 11:30 AM > Subject: RES: [delphi-br] Fechar Form > > > > Faz assim: > > try > FNomeDoForm := TFNomeDoForm.Create(self); > FNomeDoForm.ShowModal; > finally > FreeAndNil(FNomeDoForm); > end; > > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento > Telemont Engenharia de telecomunicações > Belo Horizonte - MG - Brazil > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > > > -----Mensagem original----- > > De: Macfly [mailto:[EMAIL PROTECTED] > > Enviada em: quinta-feira, 9 de junho de 2005 11:27 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: Re: [delphi-br] Fechar Form > > > > > > Olá... > > > > Eu utilizo assim > > Para abrir > > FNomeDoForm := TFNomeDoForm.Create(self); > > FNomeDoForm.ShowModal; > > FNomeDoForm.Free; > > > > No evento OnClose do form que foi aberto: > > TFNomeDoForm.FormClose... > > begin > > Action := caFree; > > end; > > > > Obs: Verifique se os forms não estão sendo criados > > automaticamente na inicialização: > > Vá em Project -> Options -> Forms... > > Em Auto-Create forms geralmente deve estar só o formulários > > principal e ou datamodules... > > > > []'s > > MacFly > > > > Catiúscia A. Barrilli da Cruz <[EMAIL PROTECTED]> wrote: > > Bom Dia ! > > > > Amados, gostaria de saber qual a melhor forma para abrir > > formulários e > > fechá-los. > > Estou tendo um probleminha com relação a isso, pois há duas > > máquinas com > > win98, uma com 64 e outra com 128 de RAM, ambas dão um erro > > dizendo: "não há > > armazenamento suficiente" ou "não há recursos disponíveis p/ > > efetuar a > > aplicação". > > > > Esse erro dá quando abrem a tela de cadastro de propostas, > > nessa tela, > > chama-se mais 4 telas (a pedido da cliente), uma p/ adicionar > > acessórios, > > outra p/ adicionar produtos, outra p/ adiconar os detalhes da > > forma de > > pagamento e mais uma para incluir outras formas do pagamento. > > > > Gostaria de saber qual a melhor forma para estar abrindo e > > fechando essas > > telas "extras". > > > > Desde já agradeço. > > > > > > > > Cati > > "...Não pense de si mesmo além do que convém..." Rm 12.3 > > Nada está fora do alcance da oração, exceto o que está fora > > da vontade de > > Deus. > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > > > --------------------------------- > > Links do Yahoo! Grupos > > > > Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED] > > > > O uso que você faz do Yahoo! Grupos está sujeito aos > > Termos do Serviço do Yahoo!. > > > > > > __________________________________________________ > > Do You Yahoo!? > > Tired of spam? Yahoo! Mail has the best spam protection around > > http://mail.yahoo.com > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > -------------------------------------------------------------- > ------------------ > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos > Termos do Serviço do Yahoo!. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __________ Informação do NOD32 1.1135 (20050609) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ____________________________________________________ Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
