ProgressBar endlosschleife

[Clane]

was ist an dem code falsch ?? ich will das die prograssbar inner endlosschleife läuft .... geht aba net und so wirklich versteh kann ichs net

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
   if i = 100 then i := 0 else i := i + 1;
   Progressbar1.Position := i;
end;

PS: i ist als integer als globale var declariert

[lbccaleb]

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject); 
begin
  if Progressbar1.position > 100 then
    progressbar1.position := 0;
  else
    progressbar1.position := progressbar1.position + 1;
end;

das sollte so eigentlich funzen aus dem stehgreif



edit:

hatte mein probleme mit dem begin und end

edit2:

ps du brauchst in dieser version die var i nicht mehr...
ausserdem könntest du auch

  if Progressbar1.position > 99 then nehmen, das musst du ausprobieren wie du es besserbrauchst..


edit3:

ok, hab das fehlerhafte inc entfernt, so viel edits, ist schon wieder spät am abend, man man


edit4: so nun aber und jetzt geh ich pennen, langer arbeitstag

mfg

[Neutral General]

Zitat von lbccaleb:

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject); 
begin
  if Progressbar1.position > 100 then
    progressbar1.position := 0;
  else
    inc(progressbar1.position);

end;

das sollte so eigentlich funzen aus dem stehgreif


mfg

Bis auf das inc

inc funktioniert nur bei Variablen, nicht bei Properties

Gruß
Neutral General

[Pfoto]

vielleicht ist ja auch die "Marquee"-Progressbar-Art
interessant für dich (da läuft dann nur ein kurzer Streifen
durch...

Hier das habe ich bei den Schweizern gefunden:
http://www.swissdelphicenter.ch/de/showcode.php?id=1680


Gruß
Pfoto

[Namenloser]

Zitat von lbccaleb:

    progressbar1.position + 1;

Ich glaub, da ist noch ein Edit fällig . [delphi]progressbar1.position := progressbar1.position+1;[7delphi]

[sirius]

Man könnte auch die Methode "stepby" verwenden, wenn ihr schon am editieren seid.

[Clane]

ich muss euch enttäuschen ... es funzt net eine sache am rande das ganze ist in einem spashscreen und das porg was dahinter läd ist .... sagen wir mal rechenintensiv

[dominikkv]

dann versuchs mal mit nem Application.Processmessages; in dem Timer.

[Crazy Ivan]

ist es nicht eher so?

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
  if Progressbar1.position > 99
    then progressbar1.position := 0;
  progressbar1.position := progressbar1.position + 1;
end;

(ohne else, sonst wird nicht endlos, oder?)

[Deep-Sea]

Zitat von Crazy Ivan:

(ohne else, sonst wird nicht endlos, oder?)

Doch wird es, aber es "überspringt" sonst immer den Wert 0, da dieser der ProgressBar nie zugewiesen wird

Zitat von Clane:

ich muss euch enttäuschen ... es funzt net eine sache am rande das ganze ist in einem spashscreen und das porg was dahinter läd ist .... sagen wir mal rechenintensiv

Was funktioniert nicht?
Rechenintensiv sollte eig. kein Problem darstellen, solange du keine großen Schleifen ohne Application.ProcessMessages hast. Ansonsten solltest du den Splashscreen vlt. mit einem Thread machen (oder geht auch die WinAPI Funktion timeSetEvent? Die arbeitet ja mittels Callback ...)(dumm nur, das die VCL net Threadsicher ist)

PS: Repaint aufzurufen ist je nach Lage auch unabdingbar...