Formulario criado depois - aparecer por primeiro no (.dpr)..

09/05/2003

1

Olá Galera!

:arrow: Meu problema é o seguinte, fiz um projeto bem massa, agora tenho que colocar uma tela de apresentação, tenho que fazer com que o formulário de apresentação apareça antes da Tela Inicial, o problema é que a tela inicial aparece sempre primeiro, sei que tem um jeito de fazer isso sem chamar o formulario no :
procedure TFrm_Ajuda.FormCreate(Sender: TObject);

Gostaria de alguma dica.


Desde já Obrigado!


Responder

Posts

10/05/2003

Rubensavelino

[form2:=tform2.create(application);
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;


Responder

10/05/2003

Rubensavelino

[color=blue:081993f180][/color:081993f180]form2:=tform2.create(application);
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;


Obs: apagar a primeira linha, ´Application.Initialize´.


Responder

10/05/2003

Adilsond

Código retirado da aplicação exemplo MastApp que vem junto com o delphi:

begin
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.Title := ´Marine Adventures Order Entry´;
  Application.HelpFile := ´MASTAPP.HLP´;
  Application.CreateForm(TMastData, MastData);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TBrPartsForm, BrPartsForm);
  Application.CreateForm(TQueryCustDlg, QueryCustDlg);
  Application.CreateForm(TEdPartsForm, EdPartsForm);
  Application.CreateForm(TBrCustOrdForm, BrCustOrdForm);
  Application.CreateForm(TEdCustForm, EdCustForm);
  Application.CreateForm(TEdOrderForm, EdOrderForm);
  Application.CreateForm(TSearchDlg, SearchDlg);
  Application.CreateForm(TBrDateForm, BrDateForm);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TPickRpt, PickRpt);
  Application.CreateForm(TCustomerByInvoiceReport, CustomerByInvoiceReport);
  Application.CreateForm(TOrdersByDateReport, OrdersByDateReport);
  Application.CreateForm(TInvoiceByOrderNoReport, InvoiceByOrderNoReport);
  Application.CreateForm(TPickOrderNoDlg, PickOrderNoDlg);
  SplashForm.Hide;
  SplashForm.Free;
  Application.Run;
end.



Responder