pagina inicial
: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
Curtidas 0
Respostas
Franck.c
06/12/2003
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!
GOSTEI 0
Bruno.oliveira
06/12/2003
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;
GOSTEI 0