com o progressbar

[jucapinduca 0]

:( Pessoal,montei um pequeno sistema para envio de email em Delphi, utilizando o componente "NMSMTP1" e gostaria de incrementá-lo colocando um componente "ProgressBar" enquanto o email estiver sendo enviado, porém não sei usar este compolnente. Alguém poderia me ajudar?Abaixo segue o código do email:procedure TForm1.Button1Click(Sender: TObject);begin NMSMTP1.Host := 'smtp.servidor.com.br'; NMSMTP1.Port := 25; NMSMTP1.UserID := 'xxxxx'; NMSMTP1.Connect; if not NMSMTP1.Connected then raise Exception.Create('Erro de conexão'); with NMSMTP1.PostMessage do begin FromAddress := 'xx@xx.com.br'; FromName := 'João das Couves'; ToAddress.Clear; ToAddress.Add('ze@bol.com'); Subject := 'Envio de Email pelo Delphi'; Body.Clear; Body.Add('Primeira linha da mensagem'); Body.Add('Segunda linha da mensagem'); Body.Add(''); { Linha em branco } Body.Add('Última linha da mensagem');end; NMSMTP1.SendMail; NMSMTP1.Disconnect;end;

[bdexterholland 0]

você terá de incrementar a propriedade position

progressbar1.position:=progressbar1.position+1

Vá no object inspector e ajuste a posição incial e a posição final...