Moin...
...probiere Mal:
Delphi-Quellcode:
procedure StatusShown();
begin
// Label Caption - Anzeige was gemacht wird...
Form1.Progressar1.StepBy(5);
Form1.Progressar1.Repaint; // alternativ: ApplicationProcessMessages;
end;
Ein paar Tipps:
1.
procedure StatusShown; besser als private procedure in der Form Klasse anlegen. Dann braucht man
Form1. nicht mehr.
2.
HealthAddy etc.
...aber bitte den Komponenten auch sprechende Namen geben.(ProgressBar1, Label1)
3. Einrückung könnte besser sein.
