Seria melhor testar a condição ANTES de chamar o Form, mas se vc quiser
continuar com o código existente, utilize o procedimento abaixo no evento
OnShow:

PostMessage(Handle, WM_CLOSE, 0, 0);


[]'s
Marcos Douglas
www.marcosdouglas.com


---- Mensagem Original ----
From: "Eduardo Alves" <[EMAIL PROTECTED]>
To: delphi-br@yahoogrupos.com.br
Sent: Qua, Janeiro 18, 2006 11:44 am
Subject: RE: [delphi-br] Fechar formulario

>
>
>
>
> O Close nao esta funcionando ?????
>
> Passe a rotina para a gente avaliar o q pode estar errado.
>
> Eduardo
>
> -----Original Message-----
> From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
> Behalf Of jorge nascimento
> Sent: terça-feira, 17 de janeiro de 2006 10:24
> To: delphi-br@yahoogrupos.com.br
> Subject: [delphi-br] Fechar formulario
>
> Bom dia pessoal,
>
>   Estou precisando de uma ajuda, na abertura de um determinado formulário no
> evento onShow testo uma condição se ele for verdadeira o form irá abrir
> normalmente... se for falsa o form será fechado... não estou conseguindo
> fechar o form no evento onShow... algume poderia me ajudar???
>
>   Obrigado.
>
>
> ---------------------------------
>  Yahoo! doce lar. Faça do Yahoo! sua homepage.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
>>;>;>;>;>; FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
>
>
>
>
>
>
>
>
>         Yahoo! Grupos, um serviço oferecido por:
>
>
>         PUBLICIDADE
>
> var lrec_target="_blank";var lrec_URL=new Array();
> lrec_URL[1]="http://br.rd.yahoo.com/SIG=12fe6chmj/M=387526.7663462.8644437.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1137596701/A=3221952/R=0/id=flashurl/SIG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
> var
> lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0105_lrec_dell_fds_producto.swf?clickTAG=javascript:LRECopenWindow(1)";
> var
> lrec_altURL="http://br.rd.yahoo.com/SIG=12fe6chmj/M=387526.7663462.8644437.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1137596701/A=3221952/R=1/id=altimg/SIG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
> var
> lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0105_lrec_dell_fds_producto.jpg";;
> var lrec_width=300;var lrec_height=250;
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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!.
>
>
>
>
>
>
>
>
>
>
>




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