no lugar do if do nil vc pode usar not assigned ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com ---------------------------------------------------------------------------------------- --- Em seg, 29/9/08, BandaLemuel <[EMAIL PROTECTED]> escreveu: De: BandaLemuel <[EMAIL PROTECTED]> Assunto: Re: [delphi-br] Componente Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 29 de Setembro de 2008, 15:03 Pessoal Achei a solução... { Mostra a tela de Configuração } procedure TConfigbanco. MostraTelaConfig uracao; begin if FrmConfiguraBanco = nil then begin Application. CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco ); FrmConfiguraBanco. ShowModal ; end else FrmConfiguraBanco. ShowModal ; end; vlw... Wesley From: BandaLemuel Sent: Monday, September 29, 2008 2:53 PM To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] Componente Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario.. .. { Mostra a tela de Configuração } procedure TConfigbanco. MostraTelaConfig uracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco. Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas] __________ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
