Tela de Splash antes de carregar qualquer coisa
05/04/2006
0
Galera é o seguinte, tenho um sistema q esta muito grande, nele tenho varias units q fazem xamadas a dll´s de terceiros, de varias impressoras fiscais, sintegra e outras coisas... meu problema é que quando executo o sistema até q aparece a tela de splash q é aquela q todo mundo sabe..
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
bla bla bla....
demora muito... axo q é na declaração das units na uses
varias units dessas fazem xamadas as dlls, e axo q isso q demora aparecer a tela de splash, queria uma maneira de fazer a tela de splash aparecer antes de tudo.. para poder ficar esperando com a tela de splash aparecendo jah... alguem tem alguma ideia? ow fazer a tela de splahs antes ou uma outra maneira de nao carregar tudo isso, alguma coisa???
program FMInfo;
{¬ToDo ´FMInfo.todo´}
uses
Forms,
F_Prin in ´F_Prin.pas´ ,
F_Grupos in ´F_Grupos.pas´ ,
UDM in ´UDM.PAS´ {DM: TDataModule},
F_ICMS in ´F_ICMS.pas´ ,
F_Unidades in ´F_Unidades.pas´ ,
.....
outras declarações
.....
{$R *.res}
begin
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
.............
crianção dos forumularios
.............
FSplash.Update;
FSplash.Hide;
FSplash.Free;
Application.Run;
end.
:?: :?: :?: :?: :?: :?:
[quote:b7c9705a76=´Moderação´][color=red:b7c9705a76]Título editado por Massuda
Removido: ´URGENTE´[/color:b7c9705a76][/quote:b7c9705a76]
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
bla bla bla....
demora muito... axo q é na declaração das units na uses
varias units dessas fazem xamadas as dlls, e axo q isso q demora aparecer a tela de splash, queria uma maneira de fazer a tela de splash aparecer antes de tudo.. para poder ficar esperando com a tela de splash aparecendo jah... alguem tem alguma ideia? ow fazer a tela de splahs antes ou uma outra maneira de nao carregar tudo isso, alguma coisa???
program FMInfo;
{¬ToDo ´FMInfo.todo´}
uses
Forms,
F_Prin in ´F_Prin.pas´ ,
F_Grupos in ´F_Grupos.pas´ ,
UDM in ´UDM.PAS´ {DM: TDataModule},
F_ICMS in ´F_ICMS.pas´ ,
F_Unidades in ´F_Unidades.pas´ ,
.....
outras declarações
.....
{$R *.res}
begin
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
.............
crianção dos forumularios
.............
FSplash.Update;
FSplash.Hide;
FSplash.Free;
Application.Run;
end.
:?: :?: :?: :?: :?: :?:
[quote:b7c9705a76=´Moderação´][color=red:b7c9705a76]Título editado por Massuda
Removido: ´URGENTE´[/color:b7c9705a76][/quote:b7c9705a76]
Darkducke
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)