tela splash

14/02/2003

0

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


L!nk!n

L!nk!n

Responder

Posts

14/02/2003

Jonny_x

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


Responder

14/02/2003

Nildo

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


Responder

14/02/2003

Anonymous

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.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar