Procressbar zählen

[Minz]

@Knotti

sieh dir mein Beispiel mal genau an, dann wirst du feststellen, dass das ButtonClick berücksichtigt wurde !

[Jelly]

Zitat von Knotti2015:

Es geht ja um die procedur Wait ... wenn ich es da durch sleep ersetzte bekome ich den selben fehler udn mit timer geht es nicht das fänst schon ohne buttonkloick an zu zählen.

Sagmal, liest du auch manchmal was du schreibst

[fkerber]

Hi!

Du musst im OI vorher beim Timer enabled auf false setzen, dann beginnt er erst mit ButtonClick


Ciao Frederic

[Knotti2015]

(@) Jelly ähm jo ...

Delphi-Quellcode:

procedure TForm1.Button1OnClick(Sender: TObject); 
begin 
     Progressbar1.Position:=Progressbar1.Min; 
     Progressbar1.Max:=strtoint(edit1.text); 
     Timer1.enabled:=true; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
     if Progressbar1.Position<Progressbar1.Max then Progressbar1.StepIt 
     else enabled:=false; 
end;

Das habe ich verwendet Danke.
nun habe ich noch ein anderes Problem umd zwar is das Programm während dieser Zeit wo die Procressbar zählt nicht ansprechbar sodass ich einen anderen button drücken könnte ..

[mr47]

Mach einfach in den Timer ein
application.processMesssages; das sollte gehen

[Jelly]

Zitat von mr47:

Mach einfach in den Timer ein
application.processMesssages; das sollte gehen

Da hat in dem Fall damit nix zu tun.

1. Auf welchem Wert steht denn Interval vom Timer... Gezählt wird in ms
2. Wenn du StepIt verwendest, wird jedes mal die Position der Progressbar um den Wert Step erhöht... Wie hoch ist der bei dir.

[mr47]

Zitat von Knotti2015:

(@) Jelly ähm jo ...


[...]
nun habe ich noch ein anderes Problem umd zwar is das Programm während dieser Zeit wo die Procressbar zählt nicht ansprechbar sodass ich einen anderen button drücken könnte [...]

Also ich hab auch mal sleep(xxx) eingesetzt. Und wenn man davor noch ein app.processmessages; setzt gefriert das Programm nicht ein!? Ich glaube da war das Problem, oder hab ich was falsch verstanden

[Knotti2015]

CountDown := StrToInt(Edit3.Text);
ProgressBar1.Max := CountDown;
ProgressBar1.Min := 0; // Sollte auch nicht fehlen.
for i := 0 to CountDown do
begin
Sleep(1000);
ProgressBar1.Position := i;
end;

entsculdigt ich habe es do so gelöst gibt es dafür auch ein code?

[Knotti2015]

Zitat von Jelly:

Zitat von mr47:

Mach einfach in den Timer ein
application.processMesssages; das sollte gehen

Da hat in dem Fall damit nix zu tun.

1. Auf welchem Wert steht denn Interval vom Timer... Gezählt wird in ms
2. Wenn du StepIt verwendest, wird jedes mal die Position der Progressbar um den Wert Step erhöht... Wie hoch ist der bei dir.

application.processMesssages; -> undefinierter bezeichner