Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
25. Aug 2007
Hast Du beim Timer die Eigenschaft "enabled" im Object Inspector auf false gesetzt?
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
25. Aug 2007
So, ich nochmal.
1. Denkfehler
TGauge kann maximal 100% anzeigen.
2. Die Rechnung ist richtig wenn TGauge bei 800/72 -> 92% anzeigt und der Maximalwert bei 1200 steht.
0,92 * 1200 = 1111,111
3. Um Prozentwerte > 100% dartzstellen ist TGauge nicht die richtige Wahl.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
25. Aug 2007
Hallo Peter,
mit diesem Code (mit TGauge):
procedure TForm1.Timer1Timer(Sender: TObject);
var
i, x, y,faktor: Integer;
ergebnis,ergebnis2: extended;
begin
faktor:= StrToInt(Edit3.Text);
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
25. Aug 2007
Hallo Peter,
so funktioniert es bei mir.
Ich habe das mit einer Progressbar (smooth = true) gemacht.
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.enabled := true;
Timer1.Interval := 10;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
25. Aug 2007
25 von 50 ist 0,5 -> das ganze in Prozent (bezogen auf 100) ist dann 50%
Grüße
Klaus