ProgressBar mit Timer synchron

[mkinzler]

Wie lang soll es den brauchen, bis der Balken voll ist?

[bonanza]

ja genau, wenn der balken voll ist, soll der Timer abgelaufen sein.

[mkinzler]

Das kannst du erreichen, wenn du das maximum auf 1 setzt. Dann macht aber ei Fortschrittsbalken wenig Sinn ;-). Oder du Verringerst das Intervall auf eine Zehntel und setzt Max auf 10;

[Flare]

Eigentlich müsste er einen zweiten Timer einbauen, der in einem kleineren Intervall die Fortschrittanzeige antreibt, wobei der dann mit dem 1. Timer nicht wirklich synchron wäre (irgendwo schon). Liegt daran, dass man die aktuelle Position von einem Timer nicht abfragen kann.


Flare

[jfheins]

Wie wärs mit eine Variable, die du im OnTimer auf % 10 prüfst - dann wird dein eigentliches OnTimer nur alle 10 Intervalle aufgerufen, du kannst aber bei jedem den Fortschrittsbalken aktualisieren ?

Delphi-Quellcode:

var i: Integer;

procedure TForm1.Ontimer(Sender: TObject); 
begin  
  if i mod 10 = 0 then
  begin
    // was machen
  end;
                    
    ProgressBar1.StepIt; 
    ProgressBar1.Update; 
end;

[bonanza]

Ich versteh das net, wie ich das jetzt realisieren soll...

könnte mir vielleicht jemand ein passendes Beispiel geben, bei dem die beiden eben synchron laufen und die Prpogressbar "voll" ist, wenn der Timer abgelaufen ist.

vielen dank schonmal im voraus

[mkinzler]

Soll der Timer später noch weitere Funktionen bekommen oder geht es wirklich nur um eine Verzögerung? Wenn er nur nur zur Verzögerung dient, würde ich es mit einem Timer machen sonst würde ich es wie jfheins vorgeschlagen hat machen.

[bonanza]

der timer hat nur die funktion, zu zählen, bis die 30sek voll sind und die progressbar "anzutreiben". Wenn der Timer abgelaufen ist, wird aber noch eine andere funktion ausgeführt.

[mkinzler]

Dann würde ich es so machen:

Delphi-Quellcode:

timer1.interval := (akt_int*100);
Button1.Caption:= 'gestartet...mit'+edit1.text+' Sek.';
Application.ProcessMessages;
ProgressBar1.Enabled := true;
progressbar1.Min := 0;
progressbar1.Max := 10;

Nun ist der Intervall des Timers 1/10 von der Wartezeit, d.h der Timer wird 10mal ausgelöst und da Max 10 ist, ist der Fortschrittsbalken am Ende angekommen.

[bonanza]

also das funktioniert nicht....

wo soll denn das "stepit" hin ? eben wurde gesagt in "ontimer" aber ist das nicht viel zu spät ? denn der wird ja erst ausgelöst, wenn die 30sek abgelaufen sind.