Fórum Form splash não funciona. #456599
25/09/2013
0
Olá pessoal. fiz um form de apresentação funciona e tal a barra de progresso mas só que quando mando ele carregar o próximo form e fecha o de splash ela fecha os dois...pq???? quando eu uso o form.destroy ele dá erro e a aplicação não funciona mais...só reiniciando o micro. abaixo segue a rotina:
procedure TForm_Apresentacao.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position = 100 then
begin
Form_Principal.Show;
Form_Apresentacao.Close;
end;
end;
Pq não abre o segundo form e fecha o primeiro????
procedure TForm_Apresentacao.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position = 100 then
begin
Form_Principal.Show;
Form_Apresentacao.Close;
end;
end;
Pq não abre o segundo form e fecha o primeiro????
Fabricio Luciano
Curtir tópico
+ 0
Responder
Posts
25/09/2013
Leandro Gonçalves
Coloca o Princial.show no evento OnClose do form de apresentação.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)