Progressbar mit Timer koppeln

91KEY8 · Beiträge: 105 Delphi 3

Hallo!

Ich habe in meinem Programm einen Timer integriert. Nun möchte ich, dass auf einer Progressbar der Progress vom aktivieren des Formulars bis zum Timer automatisch bis 100% weitergeht. Wie geht das ????

mfg 91KEY8

GTA-Place · Verfasst: Mo 07.08.06 19:17

Erkläre das bitte genauer.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Im Timer einfach ProgressBar1.Position := ProgressBar1.Position + 1; ? oder hab ichs jetzt falsch verstanden

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

91KEY8 · Beiträge: 105 Delphi 3

Born-to-Frag hat folgendes geschrieben:

Im Timer einfach ProgressBar1.Position := ProgressBar1.Position + 1; ? oder hab ichs jetzt falsch verstanden

das Funktioniert leider nicht so ganz. Ich möchte, dass die Progressbar langsam nach oben (bis zu 100%) geht, bis der Timer timt, also die Zeit erreicht ist, dann sollte er bei 100% sein.

Gausi · Verfasst: Mo 07.08.06 19:34

Dann nimm einen zweiten Timer, der nur ein hundertstel des ersten als Intervall hat. :mrgreen:

Besser wäre so etwas:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if timer1.tag < 100 then
begin
  timer1.tag := timer1.tag + 1;
  Progressbar1.Position := Progressbar1.Position + 1;
end else
begin
  timer1.tag := 0;
  Progressbar1.Position := 0;
  // mach noch ganz viel mehr
  // ...
  // ...
  // ...
end;

Natürlich das Intervall entsprechend kürzer machen.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme