Progress Bar

Delphi

13/10/2005

Olá amigos,
Gostaria de colocar um progress bar para este evento:
procedure TForm1.JvXPButton1Click(Sender: TObject);
var
conec:olevariant;
sNome:String;
iCont:integer;
begin
  conec:=CreateOleObject(´Word.Basic´) ;
  for iCont:=0 to FileListBox1.SelCount-1 do
    begin
      conec.FileOpen(endArq);
      sNome:=InputBox(´Nome do laudo´,´Dijite o nome:´,´´);
      conec.filesaveas(´H:\Civil\Laudos em execução\nova\´+sNome+´.doc´,,,,,´civil´,true,,,,,,,,,);
      conec.FileClose;
    end;

É possivel?


Caezar

Caezar

Curtidas 0

Respostas

Weber

Weber

13/10/2005

Qual está sendo seu problema?
Basta passar ao componente progress o valor de sua variavel nI.


GOSTEI 0
Caezar

Caezar

13/10/2005

Vc poderia me dar um exemplo com esse código?


GOSTEI 0
Weber

Weber

13/10/2005

procedure TForm1.JvXPButton1Click(Sender: TObject); 
var 
conec:olevariant; 
sNome:String; 
iCont:integer; 
begin 
  conec:=CreateOleObject(´Word.Basic´) ; 
  ProgressBar1.Max := FileListBox1.SelCount -1;
  for iCont:=0 to FileListBox1.SelCount-1 do 
    begin 
      ProgressBar1.Positon := iCount;
      conec.FileOpen(endArq); 
      sNome:=InputBox(´Nome do laudo´,´Dijite o nome:´,´´); 
      conec.filesaveas(´H:\Civil\Laudos em execução\nova\´+sNome+´.doc´,,,,,´civil´,true,,,,,,,,,); 
      conec.FileClose; 
    end;



GOSTEI 0
POSTAR