No envento onshow do form coloque: Application.CreateForm (tfcliente, fcliente); > fcliente.tbcliente.open; > fcliente.showmodal;
No OnTimer coloque: > fcliente.release; Agora o tempo em que o form ficará aberto pode ser controlado no propriedade Interval do componente Timer. []'s Carlos --- Em delphi-br@yahoogrupos.com.br, "Mario" <[EMAIL PROTECTED]> escreveu > > Pessoal to fazendo aqui um aplicativo que abre com uma tela inicial, > porem esta fechando muito rapido ....Eu gostaria de saber o que devo > acrescentar para que essa tela fique por mais tempo ....Segue abaixo > como esta no momento. > > procedure TFormInicial.Timer1Timer(Sender: TObject); > begin > > Application.CreateForm (tfcliente, fcliente); > fcliente.tbcliente.open; > fcliente.showmodal; > fcliente.release; > end; > > end. > > Valeus -- <<<<< 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