tela splash
14/02/2003
0
Eu estou precisando saber como eu faço uma tela splash.
Eu não faço idéia de como fazer isso...
E eu tbm gostaria de saber se tem como colocar uma barra de progresso nessa tela de splash.
Desde já eu agradeço.
Valew Galera!!!
L!nk!n
Posts
14/02/2003
Jonny_x
E olha onde os forms são inicializados
vc cria o form principal que será o primeiro que irá abrir
depois o form que vc criou para o splash coloca em segundo
aber ele e da um update para vizualizá-lo
pode dar um sleep se seu programa não for carregado
ou colocar a barra de progresso como vc queria
Application.Initialize;
Application.Title := ´VoxTxt´;
Application.CreateForm(TformPrincipal, formPrincipal);
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.show;
FrmSplash.update;
Sleep(2000); // ou coloca o progressbar
Application.CreateForm(TFrmFTP, FrmFTP);
Application.CreateForm(Tfrmconverter, frmconverter);
Application.Run;
Espero que tenha ajudao
qualquer bronca me diz!!!
14/02/2003
Nildo
form2.show;
form2.update;
.
. Aqui vai os Create forms
.
form2.hide;
form2.free;
Application.Run;
Nao se esqueça de apagar o aplication.inicializate
14/02/2003
Anonymous
Frm:TFrmS_CE;
begin
Application.Initialize;
c_s_SysDir:=ExtractFilePath(Application.ExeName);
Application.Title := ´Controle de Embarques´;
Application.CreateForm(TDMG_CE, DMG_CE);
c_o_DM_Geral:=DMG_CE;
Frm:=TFrmS_CE.Create(Application);//aqui verifica-se o BD
if not(Frm.ShowModal=mrok) then
Application.Terminate
else
begin
Application.CreateForm(TFrmBP_CE, FrmBP_CE);
Application.Run;
end;
end.
Clique aqui para fazer login e interagir na Comunidade :)