Obrrigado Hélio, vou tentar este código!!! Segunda te passarei o retorno se funcionou!!!! Um abraço!
-----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Hÿffffe9lio Santos Enviada em: quinta-feira, 23 de junho de 2005 10:07 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Resposta ao André sobre SplashScreen. André, bom dia. Tente usar o código abaixo. Pelo menos o splashscreen será solucionado. Não deixe de retirar seus forms da autocriação pelo Delphi (como pode notar, o form de splash será carregado em tempo de execução e será descarregado após a conclusão dos outros form´s). Ah, eu uso Gauge ao contrário de progressbar. Grande abraço, frmSplash := TfrmSplash.Create(nil); frmSplash.Show; With frmSplash do begin Gauge1.MaxValue := 100; Gauge1.AddProgress(25); frmSplash.Update; Application.CreateForm(TDM, DM); Gauge1.AddProgress(25); frmSplash.Update; Application.CreateForm(TListagemDM, ListagemDM); Gauge1.AddProgress(25); frmSplash.Update; Application.CreateForm(TCepDM, CepDM); Gauge1.AddProgress(25); frmSplash.Update; Application.CreateForm(TMainForm, MainForm); end; frmSplash.Hide; frmSplash.Free; Application.Run; Em resposta à: Boa noite, André. Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr(). Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes de exibir tela de login e a tela principal do programa. Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um programa, não me lembro agora mas assim que lembrar te dou um toque, ok? Só me lembro que tratei em outro arquivo e não no .DPR Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último projeto meu) .. Application.Initialize; Application.ShowMainForm := false ; //=> aqui é para esconder o formulário // principal, no seu caso, frmJuros Application.CreateForm(TfrmJuros, frmJuros); frmJuros.Hide; Application.Run; .. --------------------------------- Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [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: http://br.yahoo.com/info/utos.html