Progressbar Wert geben

[Helmi]

Hallo,

du weisst die verkehrte Variable der ProgressBar zu.
In der Form1 beschreibst du eine Variable "zahl1" der Form1, in der Form2 fragst du aber die Variable "zahl1" der Form2 ab.
Zwischen diesen zwei Variablen besteht keine Verbindung!

Du brauchst die Variable "zahl1" in der Form2 aber gar nicht.
Mach einfach folgendes:

Zitat von Affemitwaffe93:

1. Form:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
zahl1:= strtoint (edit1.text);
form2.Button1.enabled:=true;
form2.Timer1.enabled:=true;
form2.Timer2.Enabled:=true;
form2.ProgressBar1.Enabled:=true;
form2.ProgressBar1.Max := zahl1;         //<== NEU
form2.Label1.Enabled:=true;
end;

end.

und in der 2. Form:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
progressbar1.Min:=0;
//progressbar1.Max:= (Zahl1) ;           //musst du weglassen
progressbar1.Position:=0;
progressbar1.step:= +1;
end;

end.

Un um dem Verständnis halber:
Form OnCreate wird nur beim Erzeugen der Form durchlaufen. Das würde jetzt in deinem Fall bedeuten, dass der Wert der Variable "zahl1" der Form2 nur einmal der Progressbar zugewiesen werden würde.