Onde Eu Consigo...

[OSJunior]

Aê, beleza? 1º - se alguém puder me dizer onde consigo o QuickReport(componente), pra baxa me diz, não axo no meu delphi.

2º- Se alguém sabe como faço Splah Screen, num to conseguindo.

[lazarodm]

Olá, quanto à sua 1ª dúvida: não tenho certeza, mas se você usa Delphi 7, você tem que instalar o componente do quick report, mas eu não lembro onde encontrá-lo, mas eu lembro que ele vem para ser instalado.

2ª : Crie o form que será a Splash e vá em Project>Options e passe ele para a coluna da direita, ou seja, dos Avaliable forms, aí na página de códigos do projeto digite o seguinte:

begin
  frm_splash := Tfrm_splash.Create(Application);
  frm_splash.Show;
  frm_splash.Update;
  Application.Initialize;
  {AQUI VÃO OS FORMS QUE SERÃO CRIADOS AUTOMATICAMENTE}
  frm_splash.Hide;
  frm_splash.Free;
  Application.Run;
end.

Espero que tenha ajudado!

[Ewerton]

Olá OSJunior,

Vá no site da ClubeDelphi, logo depois na seção artigos.

Quanto a sua primeira dúvida procure o artigo QReport no Delphi 7, para a sua segunda dúvida procure o artigo Splash Screen.

Espero ter ajudado...

Falou.

[OSJunior]

Obrigado pela colaboração, mas nenhuma foi a solução.

Lazarodm: não achei o QReport, e não funcionou o Splash.

Ewerton: Também não achei no ClubeDelphi, os artigos mencionados.

Obrigado...

[Vivendo&Aprendendo]

Olá amigo

O QuickReport você deve ir no menu component e depois em install packages;procure a pasta bin que esta no diretório do delphi e o arquivo chamado dclqrt70 e ai é só confirmar até o final aparecerá uma nova paleta no seu delphi.

Já o splah ai vai o código:

A melhor maneira de criar um SplashScreen para seu projeto, fácil e rápido!

1º ) Crie um novo projeto no Delphi ;

2º ) O Fom 1 que se abriu , será o formulário principal, salve e crie um novo form, form2;

3º ) Coloque no form2 um Panel , um TTimer, altere o align do Panel para Client;

4º ) O form2 , será no Splash , então nele coloque o essencial que não pode faltar , uma Gauge ou se preferir uma Progress Bar .

5º ) Enfeite como quiser o seu Panel , ou seja , sua splash deixe com um visual profissional!

6º ) No evento OnCreate do form2 , coloque :

--------------------------------------------------------------

begin

Timer1.enabled:=True;

end;

--------------------------------------------------------------

7º ) Agora na propriedade Timer do nosso TTimer mude de 1000 para 100 ;

8º ) No Evento OnTimer do nosso TTimer coloque :

--------------------------------------------------------------

begin

Gauge1.Progress := Gauge1.Progress+1;

if Gauge1.Progress = 100 then

begin

form1.close;

end;

end;

--------------------------------------------------------------

9º ) No evento OnCreate do forn1 coloque!

form2 := Tform2.Create(Self);

form2.Showmodal;

[Ewerton]

Olá OSJunior,

O nosso amigo Vivendo&Aprendendo já respondeu, mas os artigos estão bem fáceis de se localizar! Acesse o site, no canto esquerdo vai ter um menu e lá tem o link ARTIGOS você clica nele, depois você abre a combo box e procura o nome dos artigos que eu postei anteriormente.

Falou.

[OSJunior]

Obrigado a todos, e corrigindo o Vivendo e Aprendendo:

begin

Gauge1.Progress := Gauge1.Progress+1;

if Gauge1.Progress = 100 then

begin

form2.close; {antes estava form1.close;}

end;

end;