Progressbar und Progreammfortschritt

[max2621]

Hallo,

ich möchte während einer Progressbar die etwa 4 bis 5 sekunden "läuft" ein anderes Programm (eine andere Komponente) laufen lassen. Es soll also die Progressbar sozusagen Ihre Aufgabe den Programmfortschritt anzuzeigen wahrnehmen.

Ich hoffe Ihr versteht meine Frage (bin noch immer, schlimmer wahrscheinlich bleibe ich immer Anfänger.

Euer Max2621

[turboPASCAL]

Nun, dann musst du der Progressbar aus der Kompon. heraus sagen wann wieviel "Was" erledigt hat.

[max2621]

Zitat von turboPASCAL:

Nun, dann musst du der Progressbar aus der Kompon. heraus sagen wann wieviel "Was" erledigt hat.

Verstehe, ich hatte die Hoffnung die Progressbar sozusagen nur paralell laufen zu lassen. Geht das den nicht??

[turboPASCAL]

Mal nachdenken, woher soll die Progressbar wissen wieviel von "was" oder "wem" schon fertig ist.

1. das Programm, die Komponente, die Function oder Procrdure hat eine "Vorichting"
die einen bestimmten Status der Verarbeitung zurück gibt; dann dieses nutzen

2. das Programm, die Komponente, die Function oder Procrdure hat keine "Vorichting"
die einen bestimmten Status der Verarbeitung zurück gibt; dann selbst was erfinden

[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...

[max2621]

Herzlichen Dank an alle, hat geholfen.

Euer Max26221