Hallo Peter,
mit diesem Code (mit TGauge):
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i, x, y,faktor: Integer;
ergebnis,ergebnis2: extended;
begin
faktor:= StrToInt(Edit3.Text);
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
Ergebnis:= x / y;
if ergebnis > 1 then
gauge1.Max:=faktor*(trunc(ergebnis)+1)
else
gauge1.Max:=faktor;
label2.Caption:='max: '+IntToStr(Gauge1.Max);
Ergebnis2:= ergebnis*faktor;
Gauge1.Position := gauge1.Position + 1;
if gauge1.Position >= ergebnis2 then
Timer1.enabled :=false;
Label1.Caption:= Edit1.Text +'/'+Edit2.Text+' * '+Edit3.Text+'= '+ format('%.2f',[ergebnis2]);
end;
Bekomme ich es richtig heraus, siehe Bild.
Ich weiß nicht was Du anders machst.
Arbeitet TGauge anders als TProgressbar?
Grüße
Klaus