DELPHI-Man32 Postado Fevereiro 21, 2004 Denunciar Share Postado Fevereiro 21, 2004 A melhor maneira de criar um SplashScreen para seu projeto, fácil e rápido!1º ) Crie um novo projeto no Delphi ;2º ) O Fom 1 que se abriu , será o formulário principal, salve e crie um novo form, form2; 3º ) Coloque no form2 um Panel , um TTimer, altere o align do Panel para Client;4º ) O form2 , será no Splash , então nele coloque o essencial que não pode faltar , uma Gauge ou se preferir uma Progress Bar .5º ) Enfeite como quiser o seu Panel , ou seja , sua splash deixe com um visual profissional!6º ) No evento OnCreate do form2 , coloque :--------------------------------------------------------------beginTimer1.enabled:=True;end;--------------------------------------------------------------7º ) Agora na propriedade Timer do nosso TTimer mude de 1000 para 100 ;8º ) No Evento OnTimer do nosso TTimer coloque :--------------------------------------------------------------beginGauge1.Progress := Gauge1.Progress+1;if Gauge1.Progress = 100 thenbeginform1.close;end;end;--------------------------------------------------------------9º ) No evento OnCreate do forn1 coloque!form2 := Tform2.Create(Self); form2.Showmodal;--------------------------------------------------------------Tá vendo, não precisa de muita coisa para deixar seu projeto um pouco mais profi!abraços, DELPHI-Man32 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
DELPHI-Man32
A melhor maneira de criar um SplashScreen para seu projeto, fácil e rápido!
1º ) Crie um novo projeto no Delphi ;
2º ) O Fom 1 que se abriu , será o formulário principal, salve e crie um novo form, form2;
3º ) Coloque no form2 um Panel , um TTimer, altere o align do Panel para Client;
4º ) O form2 , será no Splash , então nele coloque o essencial que não pode faltar , uma Gauge ou se preferir uma Progress Bar .
5º ) Enfeite como quiser o seu Panel , ou seja , sua splash deixe com um visual profissional!
6º ) No evento OnCreate do form2 , coloque :
--------------------------------------------------------------
begin
Timer1.enabled:=True;
end;
--------------------------------------------------------------
7º ) Agora na propriedade Timer do nosso TTimer mude de 1000 para 100 ;
8º ) No Evento OnTimer do nosso TTimer coloque :
--------------------------------------------------------------
begin
Gauge1.Progress := Gauge1.Progress+1;
if Gauge1.Progress = 100 then
begin
form1.close;
end;
end;
--------------------------------------------------------------
9º ) No evento OnCreate do forn1 coloque!
form2 := Tform2.Create(Self);
form2.Showmodal;
--------------------------------------------------------------
Tá vendo, não precisa de muita coisa para deixar seu projeto um pouco mais profi!
abraços, DELPHI-Man32
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.