Ihr habt Recht! Ich hab mein Problem nicht so deutlich gemacht! Mein Fehler! Ich versuch es nochmal anders zu erklären!
-eine Funktion1 ruft eine Funktion2 der Komponente auf
-die Funktion2 gibt ständig einen Status zurück(z.B. in Prozent)
-während die Funktion2 abgearbeitet wird der Status in beispielsweise einem ProgressBar oder Label angezeigt
Der ProgressBar soll aber nicht als Parameter an die Funktion2 der Komponente übergeben werden!!!
Ich versuch es einmal an diesem Beispiel zu verdeutlichen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure Funktion1();
begin
//während Komponente1.Funktion2 abgearbeitet wird tue
while Funktion2 do
ProgressBar.position := Prozent;
end;
procedure Komponente1.Funktion2();
begin
...Anweisung1...
Prozent:=10;
....Anweisung2...
Prozent:=30;
.....
end; |
Wie kann ich dies realisieren???
