Fórum criando splash em formd MDI #211018
02/02/2004
0
eu tenho meu projeto em mdi aki bunitinho .. e um formnormal .... q eu uso pra splash e tal .....
soh q to tendo problemas ... ele cria a splash .... mas qndo chega na ultima linha de criaçao do ultimo form a ser criado ele da error ...
alguem me ajuda por favor!?
soh q to tendo problemas ... ele cria a splash .... mas qndo chega na ultima linha de criaçao do ultimo form a ser criado ele da error ...
alguem me ajuda por favor!?
begin Application.Initialize; Form6 := TForm6.Create(Application); Form6.Show; Form6.Update; Application.Title := ´TESTE´; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TAboutBox, AboutBox); Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm4, Form4); Application.CreateForm(TForm3, Form3); Application.CreateForm(TForm5, Form5); Application.CreateForm(TForm7, Form7); Application.CreateForm(TForm9, Form9); Application.CreateForm(TForm14, Form14); Application.CreateForm(TOKBottomDlg, OKBottomDlg); Form6.Hide; Form6.Free; Application.Run; end.
Salsa
Curtir tópico
+ 0
Responder
Posts
02/02/2004
Eduprp
Colega
Experimente o seguinte:
Form6 := TForm6.Create(Application);
Form6.Show;
Form6.Update;
[b:cf2aa33d24] Application.Initialize; [/b:cf2aa33d24]
Qual é a mensagem de erro?
Eduardo M. Pereira
Experimente o seguinte:
Form6 := TForm6.Create(Application);
Form6.Show;
Form6.Update;
[b:cf2aa33d24] Application.Initialize; [/b:cf2aa33d24]
Qual é a mensagem de erro?
Eduardo M. Pereira
Responder
Gostei + 0
02/02/2004
Ari Marcolino
Eu uso o código abaixo e funciona. Ele deve ficar antes do ´end.´ do final da unit.
{ Splash Screen }
begin
Form3:=TForm3.create(application);
Form3.show;
Form3.update;
sleep(10000);
Form3.hide;
Form3.free;
Application.Run;
Abs.
Ari Marcolino
{ Splash Screen }
begin
Form3:=TForm3.create(application);
Form3.show;
Form3.update;
sleep(10000);
Form3.hide;
Form3.free;
Application.Run;
Abs.
Ari Marcolino
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)