Olá,

Experimenta

Application.CreateForm (tfcliente, fcliente);
fcliente.tbcliente.open;
fcliente.showmodal;
Sleep(1000);
fcliente.release;

===============================
 Emilio Córdova Silva
 [EMAIL PROTECTED]
 [EMAIL PROTECTED]
 (41) 9228-7414
----- Original Message ----- 
From: "Mario" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, February 01, 2005 3:17 PM
Subject: [delphi-br] Timer




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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.3 - Release Date: 31/01/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.3 - Release Date: 31/01/2005



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

 



Responder a