Tempos atrás deram a seguinte dica:
procedure CriarForm(TFrm: TComponentClass; var Frm);
begin
application.CreateForm(tFrm, Frm);
//para manipula-lo utilize:
TForm(frm).ShowModal
...
end;
----- Original Message -----
From: "Catiúscia A. Barrilli da Cruz" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, June 09, 2005 1:20 PM
Subject: Res: Re: Re: [delphi-br] Fechar Form
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
____________________________________________________
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
