ProgsX
asked on
problem with NMSMTP1 and progressbar
I use the component (NMSMTP1) and a progressbar, and I am not create to make it function.
procedure TSendForm.Timer1Timer(Send er: TObject);
begin
ProgressBar1.Position := NMSMTP1.BytesSent;
StatusBar1.Panels.Items[0] .Text := IntToStr(NMSMTP1.BytesSent );
StatusBar1.Panels.Items[1] .Text := IntToStr(NMSMTP1.BytesTota l);
end;
procedure TSendForm.NMSMTP1SendStart (Sender: TObject);
begin
ProgressBar1.Max := NMSMTP1.BytesTotal;
ProgressBar1.Min := 0;
end;
help me
procedure TSendForm.Timer1Timer(Send
begin
ProgressBar1.Position := NMSMTP1.BytesSent;
StatusBar1.Panels.Items[0]
StatusBar1.Panels.Items[1]
end;
procedure TSendForm.NMSMTP1SendStart
begin
ProgressBar1.Max := NMSMTP1.BytesTotal;
ProgressBar1.Min := 0;
end;
help me
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
did you test the code above ? Does it work for you ? Any feedback ?