Progressbar und Progreammfortschritt

[StInkeSchuh]

Hi

Sollte diese Komponente (oder was auch immer das ist) über keine Variable oder Prozedur verfügen, die einen aktuellen Fortschritt zurückgibt, vielleicht (falls diese "Arbeit der Komponente" immer gleich lange dauert) einen Timer verwenden.

---

Der Timer kann ja Folgenden Quelltext enthalten (Bei der Benutzung einer "Gauge"):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fortschritt : Integer;
begin
  inc(fortschritt, 1);
  Gauge1.Progress := fortschritt;
  if fortschritt = 100 then
  begin
  Form2.Show;     // ein Formular, dass bekannt gibt, dass die Aufgabe abgeschlossen ist
  end
  else
  begin
  end;
end;

Oder bei Benutzung einer ProgressBar:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position < 100 then
  begin
  ProgressBar1.StepIt;
  end
  else
  begin
  Form2.Show;     // wieder dieses "Aufgabe erledigt" Formular
  end;
end;

Ich bin auch ein Anfänger, aber ich habe mit diesen Sachen herumexperimentiert und dabei interessantes herausgefunden...