Arnaldo,
O problema se dá pelo fato do Show não "prender"
o processamento sequencial do código. Então o Show é
executado e o FreeAndNil tbm é executado em seguida.
Para usar o show vc deve tirar o Freeandnil e por no
FormClose do formulário Form1 a seguinte linha: Action
:= caFree;
Quem já teve a curiosidade de ver o código do
ShowModal poderá ver que nele existe um loop infinito
(parece até um baca), que fica "escutando" se o form
foi fechado, lá ele dá um Show e depois mete o repeat
para manter o processamento no método.
[]'s
Fabiano Freitas
--- "Walter Chagas (Desenvolvimento)"
<[EMAIL PROTECTED]> escreveu:
---------------------------------
Eu tive este problema também, resolvi ele mudando de
form1.show para
form1.showModal
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
CABTEC - Soluções em Código de Barras
Belo Horizonte - MG
Fone: (31) 2125-9019 - Fax: (31) 2125-9030
http://www.cabtec.com.br
[EMAIL PROTECTED]
----- Original Message -----
From: "Arnaldo V. Scarin" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 14, 2004 9:25 PM
Subject: Re: [delphi-br] Erro com FreeandNil
>
> Arnaldo V. Scarin
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> ----- Original Message -----
> From: "Paulo Daniel Dorensbach"
<[EMAIL PROTECTED]>
> To: "Grupo [delphi-br]"
<[EMAIL PROTECTED]>
> Sent: Tuesday, September 14, 2004 9:01 PM
> Subject: [delphi-br] Erro com FreeandNil
>
>
> Boa noite pessoal da lista.
>
> Estou mudando meus codigos antigos, que por motivo
de falta de
> conhecimento, fazia de forma errada, mas ja de cara
me deparei com um
> erro.
>
> Estou usando o coigo abaixo para abrir um form, mas
assim que abre, o
> form ja é fechado, do da pra ver ele piscando na
tela.
>
> form1 := Tform1.create(nil);
> try
> form1.show;
> finally
> FreeAndNil(form);
> end;
>
> [ ]'s
>
> Paulo Daniel
>
> --
> "Não me entrego sem lutar, tenho ainda coração
> Não aprendi a me render, que caia o inimigo
então..."
> Metal contra as nuvens - Legião Urbana
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
---------------------------------
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
--
<<<<< 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
