criando splash em formd MDI

Delphi

02/02/2004

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!?

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

Salsa

Curtidas 0

Respostas

Eduprp

Eduprp

02/02/2004

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


GOSTEI 0
Ari Marcolino

Ari Marcolino

02/02/2004

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


GOSTEI 0
POSTAR