ProgressBar endlosschleife

[lbccaleb]

wie meinst du funktioniert nicht?? also wenn durch die hohe rechenbewegung im hintergrund die progressbar nicht updatet, dann kannst du es event so bewerkstelligen:

Delphi-Quellcode:

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

edit:

delphi tags gesetzt

mfg

[thkerkmann]

Hi,

ich schätze mal, dass während der Prog-ladezeit noch gar keine Messages abgearbeitet werden, da Application.Run noch gar nicht aufgerufen wird. Also KANN das so nicht funktionieren. Das geht jetzt wirklich nur noch über einen Timer mit Callback, wo keine Messageverarbeitung nötig ist.

Gruss