Hai Alois,
ich kann das bei mir nicht nachvolziehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
ndx : integer;
begin
for ndx := 0 to 100 do
begin
JvProgressBar1.Position := ndx;
JvGradientProgressBar1.Position := ndx;
ProgressBar1.Position := ndx;
end;
end;
Alle drei "ProgressBars" habe ich auf die volle breite der Form gezogen und alle drei laufen bis zum ende durch.
Stephan B.
"Lasst den Gänsen ihre Füßchen"