UpDown-Komponente mit Realwerten

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo
Gibt es eine möglichkeit bei einer UpDown-Komponente das Increment auf 0,1 zu setzen. Es sind schließlich nur Integer-Werte zugelassen.

F34r0fTh3D4rk · Verfasst: Di 23.05.06 16:24

teil doch das was da steht durch 10, dann hast es, ob du beim zeichnen vielleicht auch was drehen kannst weiß ich so net, ansonsten selbst machen

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Du kannst ja z.B. einfach ein Edit über das SpinEdit (oder was du benutzt) setzen und auf die Art einfach eine Ausgabe mit Dezimalzahl erreichen (in kombination mit FotDs methode.)

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

aim65 · Beiträge: 312 Win 9x, Win XP Delphi 3pro, 7PE

Ich benutze oft UpDownButtons in meinen Programmen. Man kann ja die Zahl der Schritte sehr hoch setzen. Im folgenden Codeschnipsel ist die Schrittzahl +1000 und -1000 eingestellt. Die effektive Schrittggröße hier ist dann der Faktor 1.005.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.UpDown3Click(Sender: TObject; Button: TUDBtnType);
begin
  if Button =btnext then   //Range im OI (+-1000) nicht vergessen!
    Cpv := Cpv * 1.005
  else Cpv :=Cpv / 1.005;
    if Cpv<1 then Cpv:=Cpv*1.005;
  Edit4.Text :=' '+FloatToStrF(Cpv,fffixed,7,1);
  CalcValues;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme