Delphi-Quellcode:
//...
procedure TForm1.Button1Click(Sender: TObject);
begin
akt_int := strtoint(edit1.text);
timer1.Enabled := true;
timer1.interval := (akt_int*1000);
Button1.Caption:= 'gestartet...mit'+edit1.text+' Sek.';
Application.ProcessMessages;
ProgressBar1.Enabled := true;
progressbar1.Min := 0;
progressbar1.Max := 30;
end;
procedure TForm1.Ontimer(Sender: TObject);
begin
ProgressBar1.StepIt;
ProgressBar1.Update;
end;
so funktioniert es aber auch net...der macht alle 30 sek knapp 1/3 oder so :-\
Wie kann ich das denn abhänig von der Timer1.Interval-Zeit ?
also, dass das immer passt, egal was man in Edit1.text eingibt ?