Tela Splash no delphi
E ai pessoal como faço uma tela splash no delphi usando animação em flash, tem como fazer isso, alguém tem algum exemplo de como fazer uma uma tela splash?
Luisandro
Curtidas 0
Respostas
Reginaldo174
09/11/2004
form2:=tform2.create(application);
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;
e Instale ActiveX showaveFlash e coloque no form2 que será seu splash.
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;
e Instale ActiveX showaveFlash e coloque no form2 que será seu splash.
GOSTEI 0
Luisandro
09/11/2004
E ai pessoal alguém tem um código de como fazer uma tela splash no delphi pra que eu possa me guiar e fazer uma tela splash
GOSTEI 0
Luisandro
09/11/2004
Alguém tem um exemplo de como fazer uma tela splash no delphi?
GOSTEI 0
Mssilva
09/11/2004
Colega levando em consideração que você já criou em form que será o splash
Click em Project-> View Source.
Em uses só deve ter a clausula Forms, acrescente também (Windows e Dialogs)
Código
Application.Initialize;
frmAbertura := TfrmAbertura.create(application);
frmAbertura.Label1.Caption := ´Ex: Seu no telefone´;
frmAbertura.Label2.Caption := ´Criando Ambiente do Aplicativo, Aguarde...´;
frmAbertura.Show;
Application.Title := ´Da aplicação´;
frmAbertura.Progresso.Position:=(10);
frmAbertura.Refresh;
Esse código e para o forme splash.
para criar os outros form da aplicação o código e esse
Application.CreateForm(TFrom + nome, From + nome);
frmAbertura.Label2.Caption:= ´Criando o form x, Aguarde...´;
frmAbertura.Progresso.Position:= (20);
frmAbertura.Refresh;
Quando for o último forme.
frmAbertura.Hide;
Application.Run;
end.
Há progresso é uma ProgressBar que coloquei no form + 2 labels ok.
Qualquer dúvida estou no message = mpssistemas@hotmail.com
Click em Project-> View Source.
Em uses só deve ter a clausula Forms, acrescente também (Windows e Dialogs)
Código
Application.Initialize;
frmAbertura := TfrmAbertura.create(application);
frmAbertura.Label1.Caption := ´Ex: Seu no telefone´;
frmAbertura.Label2.Caption := ´Criando Ambiente do Aplicativo, Aguarde...´;
frmAbertura.Show;
Application.Title := ´Da aplicação´;
frmAbertura.Progresso.Position:=(10);
frmAbertura.Refresh;
Esse código e para o forme splash.
para criar os outros form da aplicação o código e esse
Application.CreateForm(TFrom + nome, From + nome);
frmAbertura.Label2.Caption:= ´Criando o form x, Aguarde...´;
frmAbertura.Progresso.Position:= (20);
frmAbertura.Refresh;
Quando for o último forme.
frmAbertura.Hide;
Application.Run;
end.
Há progresso é uma ProgressBar que coloquei no form + 2 labels ok.
Qualquer dúvida estou no message = mpssistemas@hotmail.com
GOSTEI 0