Fórum erro tela Splash #335891
09/01/2007
0
begin
Application.Initialize;
FSplash := TFSplash.Create(Application);
FSplash.Show;
FSplash.Update;
try
Application.CreateForm(TDMCadastro, DMCadastro);
Application.CreateForm(TdmPesquisas, dmPesquisas);
Application.CreateForm(TDMFinanceiro, DMFinanceiro);
Application.CreateForm(TDMManutencao, DMManutencao);
Application.CreateForm(TDMControle, DMControle);
Application.CreateForm(TDMRelatorioRave, DMRelatorioRave);
Application.CreateForm(TDMPesqRelatorio, DMPesqRelatorio);
Application.CreateForm(TFLogin, FLogin);
finally
FSplash.Close;
end;
Application.Run;Onde Está o erro? no meu computador roda perfeito... no cliente não
Facc
Curtir tópico
+ 0Posts
10/01/2007
Maf_arthur
do tipo:
begin
Application.Title := ´Meu Sistema´;
Application.Initialize;
//Application.CreateForm(TMainForm, MainForm);
with TFormSplash.Create(nil) do
try
Show; // show a splash screen contain ProgressBar control
Update; // force display of Form5
//Application.CreateForm(TMainForm, MainForm);
//ProgressBar1.StepBy(5);
// Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TBancos, Bancos);
gauge1.progress:=gauge1.progress+5;
Application.CreateForm(TMainForm, MainForm);
gauge1.progress:=gauge1.progress+5;
Application.CreateForm(Tform_procura, form_procura);
gauge1.progress:=gauge1.progress+5;
finally
Free;
end;
Application.Run;
Gostei + 0
10/01/2007
Titanius
begin
Application.Initialize;
FSplash := TFSplash.Create(Application);
FSplash.Show;
FSplash.Update;
try
Application.CreateForm(TDMCadastro, DMCadastro);
Application.CreateForm(TdmPesquisas, dmPesquisas);
Application.CreateForm(TDMFinanceiro, DMFinanceiro);
Application.CreateForm(TDMManutencao, DMManutencao);
Application.CreateForm(TDMControle, DMControle);
Application.CreateForm(TDMRelatorioRave, DMRelatorioRave);
Application.CreateForm(TDMPesqRelatorio, DMPesqRelatorio);
Application.CreateForm(TFLogin, FLogin);
finally
FSplash.Close;
end;
Application.Run;Bem, como o código está num Try, pode ser que no cliente esteja acontecendo algum erro ao criar os forms acima... verifique isso...
ah. uma dica.. depois do FSplash.Close, dá um FSplash.Free pra liberar da memória... :D
[]s
Gostei + 0
10/01/2007
Facc
Try
Código;
Código;
Except
Mostra o Erro;
Finally
Se não deu erro, abreGostei + 0
10/01/2007
Aroldo Zanela
Você pode fazer o aninhamento assim:
try try except end; finally end;
Gostei + 0
10/01/2007
Quartieri
Gostei + 0
10/01/2007
Facc
Não é o Login
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)