Como faço  para :

with TClasseDoForm.Create(Self) do
    try
      ShowModal;
    finally
      Release;

Ficar genérico pra todos os forms ?

 
 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: Francisco Thiago
Data: 06/09/05 12:33:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Re: [delphi-br] Fechar Form
 
Olá.
 
Olha, a melhor coisa a se fazer é
  -> Retirar os Forms do AutoCreate
  -> Chamar os Forms dessa forma
  with TClasseDoForm.Create(Self) do
    try
      ShowModal;
    finally
      Release;
{
   Usar o Free não é muito indicado, pois ele destroi imediatamente o form,
enquanto o release "espera" até que tudo no form esteja "concluído" para
depois destruí-lo
}
    end;
 
E no OnClose de todos os forms (ou do seu form padrão, caso use herança)
colocar o código
 
  Action := caFree;
 
Espero ter ajudaddo
 
 
Thiago
 
 
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
 
 
 
 
 
 
 
 
 
__________ 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
 
 
 
 
 
 
 
 
 
__________ 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

<*> 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

 


Responder a