Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by lbccaleb,
27. Nov 2007
wie meinst du funktioniert nicht?? also wenn durch die hohe rechenbewegung im hintergrund die progressbar nicht updatet, dann kannst du es event so bewerkstelligen:
procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
if Progressbar1.position > 99 then
progressbar1.position := 0;
else
begin;
progressbar1.position := progressbar1.position + 1;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by lbccaleb,
26. Nov 2007
procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
if Progressbar1.position > 100 then
progressbar1.position := 0;
else
progressbar1.position := progressbar1.position + 1;
end;