erro tela Splash

Delphi

09/01/2007

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

Facc

Curtidas 0

Respostas

Maf_arthur

Maf_arthur

09/01/2007

Ja tentou mudar para ver mano
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
Titanius

Titanius

09/01/2007

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


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
Facc

Facc

09/01/2007

Gostaria de saber se funciona assim o Try

Try 
           Código;
           Código;
         Except
            Mostra o Erro;
         Finally
             Se não deu erro, abre



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

09/01/2007

Colega,

Você pode fazer o aninhamento assim:

try
  try

  except

  end;
finally

end;



GOSTEI 0
Quartieri

Quartieri

09/01/2007

O form de splash é o principal da aplicação?


GOSTEI 0
Facc

Facc

09/01/2007

O form de splash é o principal da aplicação?


Não é o Login


GOSTEI 0
POSTAR