pagina inicial
06/12/2003
0
:lol:
ola sou novo em programação em delphi como fazer tela de splash (tela de inicio de um aplicativo) fiz uma so que ela fica rapida de+ nao da nen para vela direito,tem como colocar um progressbar para marcar o tempo de abertura do programa??
ola sou novo em programação em delphi como fazer tela de splash (tela de inicio de um aplicativo) fiz uma so que ela fica rapida de+ nao da nen para vela direito,tem como colocar um progressbar para marcar o tempo de abertura do programa??
Tonton
Curtir tópico
+ 0
Responder
Posts
07/12/2003
Franck.c
Na borda system, coloca um timer. na propriedade ´inteval´ coloca um tempo, pode ser 4000 , seria 4 segundos com a tela. Dê dois cliques en cima do timer e coloque o código:
timer1.enabled:=False;
hide;
application.createform(tFPrincipal,FPrincipal);
FPrincipal.show;
ou
timer1.enabled:=False;
hide;
FPrincipal.show;
ou
timer1.enabled:=False;
hide;
FPrincipal.showmodal;
Depois é só colocar ela como Form de inicio em project e options, na borda form em Main Form coloque o form do splash.
Qualquer coisa é só me comunicar!
timer1.enabled:=False;
hide;
application.createform(tFPrincipal,FPrincipal);
FPrincipal.show;
ou
timer1.enabled:=False;
hide;
FPrincipal.show;
ou
timer1.enabled:=False;
hide;
FPrincipal.showmodal;
Depois é só colocar ela como Form de inicio em project e options, na borda form em Main Form coloque o form do splash.
Qualquer coisa é só me comunicar!
Responder
07/12/2003
Bruno.oliveira
Esta solução é boa, mas outra solução é fazer com que o splash apareça enquanto os outros formulários do programa são criados na memória, como acontece com o delphi ou os aplicativos do office.
Para isto, suponha que seu form do splash se chame FormAbertura, entre no project source e apague a seguinte linha:
begin
Application.CreateForm(TFormabertura, FormAbertura);
{Esta linha deve ser apagada -^}
end;
Agora insira as linhas abaixo antes da criação dos demais form do seu aplicativo:
begin
FormAbertura:=TFormAbertura.Create(Application);
FormAbertura.show;
FormAbertura.repaint;
{Os outros form devem ser criados aqui}
{Depois de criados insira as seguintes linhas}
FormAbertura.Hide; {Esconde o FormAbertura}
FormAbertura.Free; {Libera Memória}
Application.Run;
End;
Para isto, suponha que seu form do splash se chame FormAbertura, entre no project source e apague a seguinte linha:
begin
Application.CreateForm(TFormabertura, FormAbertura);
{Esta linha deve ser apagada -^}
end;
Agora insira as linhas abaixo antes da criação dos demais form do seu aplicativo:
begin
FormAbertura:=TFormAbertura.Create(Application);
FormAbertura.show;
FormAbertura.repaint;
{Os outros form devem ser criados aqui}
{Depois de criados insira as seguintes linhas}
FormAbertura.Hide; {Esconde o FormAbertura}
FormAbertura.Free; {Libera Memória}
Application.Run;
End;
Responder
Clique aqui para fazer login e interagir na Comunidade :)