Einzelnen Beitrag anzeigen

Faceman

Registriert seit: 20. Mai 2006
22 Beiträge
 
#6

Re: ProgressBar ohne sleep aber mit delay

  Alt 24. Mai 2006, 10:56
Ich hab schon ne andere Lösung gefunden, aber trotzdem tritt wieder einmal ein Problem auf, das ich ganz und gar nicht verstehen kann.
Hier mein Quelltext
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
timer3.Enabled:=true;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
progressbar1.Position := progressbar1.Position + 1;
if progressbar1.position=97 then label16.caption:='3...';
if progressbar1.position=98 then label16.caption:='2...';
if progressbar1.position=99 then label16.caption:='1...';
  if progressbar1.Position = 100 then begin
    timer3.Enabled := false;
    close;
    end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
timer3.Enabled:=false;
end;

procedure TForm2.Timer4Timer(Sender: TObject);
begin
progressbar2.Position := progressbar2.Position + 1;
if progressbar2.position=97 then label16.caption:='3...';
if progressbar2.position=98 then label16.caption:='2...';
if progressbar2.position=99 then label16.caption:='1...';
  if progressbar2.Position = 100 then begin
    timer4.Enabled := false;
    close;
    end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
timer4.Enabled:=true;
end;
Ich habe 2 Formulare. Im ersten habe ich eine Progressbar1 und im zweiten Progressbar2, trotzdem zeigt er mir im zweiten Formular den gleichen Fortschritt wie in Formular1 an, obwohl ich ganz andere Timer und ProgressBars benutze. Und im ersten Formular schalte ich den timer3 durch enabled:=false aus. Warum habe ich denn immer noch den gleichen Fortschritt, ich versteh das einfach nicht. Liegt es vielleicht daran, dass das Formular1 die MAINFORM ist?
  Mit Zitat antworten Zitat