Fórum Formulario criado depois - aparecer por primeiro no (.dpr).. #159182
09/05/2003
0
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!
: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!
Jfalexandre
Curtir tópico
+ 0
Responder
Posts
10/05/2003
Rubensavelino
[form2:=tform2.create(application);
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;
Responder
Gostei + 0
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´.
form2.show;
form2.update;
.
.
.
form2.hide;
form2.free;
Application.Run;
Obs: apagar a primeira linha, ´Application.Initialize´.
Responder
Gostei + 0
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)