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