SplashScreem
12/05/2003
0
Como Faço para Criar um SplashScreem ???
me ajudem !!!
me ajudem !!!
Chiquinhojunior
Curtir tópico
+ 0
Responder
Posts
12/05/2003
Alphablend
Crie um form normalmente com o que vc quer que apareça como splash screen depois vá em Project/View Source vai aparecer algo assim:
apague a linha que cria o form do splash e coloque isso
qualquer dúvida é só perguntar ....
rogram Estoque; uses Forms, Uprincipal in ´Uprincipal.pas´ , Usobre in ´Usobre.pas´ , Udm in ´Udm.pas´ {DM: TDataModule}, UnitCadPadrao in ´..\..\Delphi\Repositorio\Cadastro\UnitCadPadrao.pas´ , UCadFornec in ´UCadFornec.pas´ , UcadProd in ´UcadProd.pas´ , UCadCliente in ´UCadCliente.pas´ , Access in ´..\..\Delphi\Units\Access.pas´, UPesqFornec in ´UPesqFornec.pas´ , UPesqCliente in ´UPesqCliente.pas´ , UPesqProd in ´UPesqProd.pas´ , Uvenda in ´Uvenda.pas´ , Usplash in ´Usplash.pas´ , URelatorios in ´URelatorios.pas´ , UgeraRel in ´UgeraRel.pas´ , UentradaProd in ´UentradaProd.pas´ ; {$R *.res} begin Application.Initialize; Application.Title := ´Controle de Estoque´; Application.CreateForm(TFsplash, Fsplash); // é o form do SplashScreem Application.CreateForm(TDM, DM); Application.CreateForm(TFprincipal, Fprincipal); Application.CreateForm(TFfornecedorCad, FfornecedorCad); Application.CreateForm(TFProdutoCad, FProdutoCad); Application.CreateForm(TFclienteCad, FclienteCad); Application.CreateForm(TFForncedorPesq, FForncedorPesq); Application.CreateForm(TFclientePesq, FclientePesq); Application.CreateForm(TFProdPesq, FProdPesq); Application.CreateForm(TFRelatorios, FRelatorios); Application.CreateForm(TFgeraRel, FgeraRel); Application.CreateForm(TFadicionaProd, FadicionaProd); Application.CreateForm(TFvenda, Fvenda); Application.Run; end.
apague a linha que cria o form do splash e coloque isso
rogram Estoque; uses Forms, Uprincipal in ´Uprincipal.pas´ , Usobre in ´Usobre.pas´ , Udm in ´Udm.pas´ {DM: TDataModule}, UnitCadPadrao in ´..\..\Delphi\Repositorio\Cadastro\UnitCadPadrao.pas´ , UCadFornec in ´UCadFornec.pas´ , UcadProd in ´UcadProd.pas´ , UCadCliente in ´UCadCliente.pas´ , Access in ´..\..\Delphi\Units\Access.pas´, UPesqFornec in ´UPesqFornec.pas´ , UPesqCliente in ´UPesqCliente.pas´ , UPesqProd in ´UPesqProd.pas´ , Uvenda in ´Uvenda.pas´ , Usplash in ´Usplash.pas´ , URelatorios in ´URelatorios.pas´ , UgeraRel in ´UgeraRel.pas´ , UentradaProd in ´UentradaProd.pas´ ; {$R *.res} begin Application.Initialize; Application.Title := ´Controle de Estoque´; FormSplash:=TFormSplash.Create(Application); //cria o from do Splash FormSplash.Show;// mostra FormSplash.Update;// atualiza Application.CreateForm(TDM, DM); Application.CreateForm(TFprincipal, Fprincipal); Application.CreateForm(TFfornecedorCad, FfornecedorCad); Application.CreateForm(TFProdutoCad, FProdutoCad); Application.CreateForm(TFclienteCad, FclienteCad); Application.CreateForm(TFForncedorPesq, FForncedorPesq); Application.CreateForm(TFclientePesq, FclientePesq); Application.CreateForm(TFProdPesq, FProdPesq); Application.CreateForm(TFRelatorios, FRelatorios); Application.CreateForm(TFgeraRel, FgeraRel); Application.CreateForm(TFadicionaProd, FadicionaProd); Application.CreateForm(TFvenda, Fvenda); FormSplash.Hide; // esconde FormSplash.Free; // libera da memória Application.Run; end.
qualquer dúvida é só perguntar ....
Responder
Clique aqui para fazer login e interagir na Comunidade :)