Fórum Progress Bar #299276
13/10/2005
0
Olá amigos,
Gostaria de colocar um progress bar para este evento:
É possivel?
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
Curtir tópico
+ 0
Responder
Posts
13/10/2005
Weber
Qual está sendo seu problema?
Basta passar ao componente progress o valor de sua variavel nI.
Basta passar ao componente progress o valor de sua variavel nI.
Responder
Gostei + 0
14/10/2005
Caezar
Vc poderia me dar um exemplo com esse código?
Responder
Gostei + 0
14/10/2005
Weber
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)