Fórum ProgressBar e Gauge #240411

program Poli;

uses
Forms,
FMenu in ´FMenu.pas´ ,
FEmpresa in ´FEmpresa.pas´ ,
FClientes in ´FClientes.pas´ ,
QTimbre in ´QTimbre.pas´ ,
DM in ´DM.pas´ {DM1: TDataModule},
FSplash in ´FSplash.pas´ ,
FAbout in ´FAbout.pas´ ,
FSenha in ´FSenha.pas´ ,
FCadUsuario in ´FCadUsuario.pas´ ,
FRecibo in ´FRecibo.pas´ ,
QRecibo in ´QRecibo.pas´ ,
FProduto in ´FProduto.pas´ ,
FFornec in ´FFornec.pas´ ;

{$R *.RES}

Var
NumTab,TotTab,Posicao:Integer;
begin
Splash:=TSplash.Create(Application);
Splash.Show;
Splash.Update;
Application.Initialize;
Application.Title := ´Tusa´;
Application.CreateForm(TfrmSenha, frmSenha);
Application.CreateForm(TfrmFornec, frmFornec);
NumTab:=0;
TotTab:=10;
Application.CreateForm(TDM1, DM1);
DM1.TClientes.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TEmpresa.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TSenha.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TAcount.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TProduto.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TFornec.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TRecibo.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TItemRec.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TCliRec.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
DM1.TClientesRec.Open;
Inc(NumTab);
Posicao:=Round((NumTab/TotTab)*100);
Splash.Gauge1.Progress:=Posicao;
Application.CreateForm(TQuickTimbre, QuickTimbre);
Application.CreateForm(TQuickRecibo, QuickRecibo);
Splash.Hide;
Splash.Free;
Application.Run;
end.

Obrigado amigo pela resposta, será que vc pode explicar um puco mais detalhando sobre a linha de comando acima, tipo qual evento, se é no OnShow etc...


Obrigado

Explicação sobre o GAUGE:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=34472