Zitat von
DArc:
Delphi-Quellcode:
if (Gewicht = Gewicht div 100 * 100) then
begin
sProgressBar1.Position := 100;
sButton1.Visible := False;
sButton2.Visible := True;
sButton3.Visible := False;
end;
*schüttel*
sProgressBar1.Position := Round((Gewicht/MaxGewicht)*100);
Einfachste Prozentrechnung. Sollte man auch mit 15 schonmal gesehen haben
Edit: Application.ProcessMessages(); ist meist auch ein Indiz dafür, dass man hier mit einem Thread wohl besser bedient wäre. ProcessMessages ist bei solchen Vorgängen eher ne Quick'n'Dirty-Krücke als denn eine angemessene Lösung. Geht, ist aber nicht wirklich elegant, und je nach dem in welchen Intervallen man es aufruft führt es dennoch zu Stocken bei der Anzeige/Bedienung.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)