SplashScreem

12/05/2003

2

Como Faço para Criar um SplashScreem ???
me ajudem !!!


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:

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar