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