tela splash
Fala Galera!
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!!!
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
Curtidas 0
Respostas
Jonny_x
14/02/2003
vai no menu project e em view source
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!!!
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!!!
GOSTEI 0
Nildo
14/02/2003
form2:=tform2.create(application);
form2.show;
form2.update;
.
. Aqui vai os Create forms
.
form2.hide;
form2.free;
Application.Run;
Nao se esqueça de apagar o aplication.inicializate
form2.show;
form2.update;
.
. Aqui vai os Create forms
.
form2.hide;
form2.free;
Application.Run;
Nao se esqueça de apagar o aplication.inicializate
GOSTEI 0
Anonymous
14/02/2003
var
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.
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.
GOSTEI 0