Vc deve fazer assim, pois deve deixar o run somente se vai entrar na
aplicação.
Application.Initialize;
frmSenha:=TFrmSenha.Create(application);
if frmSenha.ShowModal = mrOk then begin
Application.Title := 'SIGEP';
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmSetor, FrmSetor);
Application.CreateForm(TFrmOperario, FrmOperario);
Application.Run;
end;
tipo assim por exemplo, onde vc faz um código de verificação no modalresult
do frmsenha.
if (usuario = 'valido') then
ModalResult := mrOk;
ok.
----- Original Message -----
From: "Eduardo Damasceno" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, June 15, 2006 4:57 PM
Subject: [delphi-br] To apanhando de uma Tela de Splash... Help!
Caros colegas,
Estou tomando uma surra de uma simples tela de splash, gostaria da opiniao
e ajuda de voces.
O problema é que ao iniciar o programa meu codigo é esse:
Application.Initialize;
frmSenha:=TFrmSenha.Create(application);
frmSenha.ShowModal;
frmSenha.Refresh;
Application.Title := 'SIGEP';
Application.Run;
Aí eu abro a tela para a pessoa fazer o login (FrmSenha). Quando ela clica
no Ok, eu valido o usuário e senha (até ai normal) e depois vem esse codigo:
if (usuario = 'valido') then
begin
frmSenha.Close;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmSetor, FrmSetor);
Application.CreateForm(TFrmOperario, FrmOperario);
:
:
:
end;
Eu ja peguei esse codigo pronto, e estou tendo que modificar, funciona
direitinho mas o meu problema é:
Quando se clica, por exemplo, no cadastro de Operario, no evento FormShow
do formulario é dado um Open no ClientDataSet correspondente a esse cadastro
(ate ai tudo ok). Só que eu tenho um cadastro que é gigantesco, entao quando
chega na hora de dar o ClientDataSet.Open no evento desse formulario ele
demora 15s para mostrar esse Form.
Entao eu tenho que fazer uma tela de splash, para que nela sejam
carregados todos os meus dados.
A minha ideia e criar os formularios nesta tela de splash e colocar no
evento OnCreate dos formularios o carregamento dos Client's Dataset.
Alguem me ajuda nessa!
Muito Obrigado!
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< 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
