SpinEdit; Wie Komma-Zahlen beibringen?

[eddy]

Hallo DanielB,

der kleinste Aufwand wäre dann wohl ein Edit und ein SpinnButton.

Code:

const
  eedmax = 2;
  eedmin = 0;
  inkr = 0.05;
var
  wert : real;
procedure TFBrowser.SpinButton1UpClick(Sender: TObject);
begin
  eed.Value := eed.Value + inkr;
  if eed.Value > eedmax then eed.Value := eedmax;

  wert := StrToFloat(Edit1.Text) + inkr;
  if wert > eedmax then wert := eedmax;
  Edit1.Text := FloatToStr(wert);
end;

procedure TFBrowser.SpinButton1DownClick(Sender: TObject);
begin
  eed.Value := eed.Value - inkr;
  if eed.Value < eedmin then eed.Value := eedmin;

  wert := StrToFloat(Edit1.Text) - inkr;
  if wert < eedmin then wert := eedmin;
  Edit1.Text := FloatToStr(wert);
end;

eed ist vom Typ TEnhEdit, geht aber auch mit einem Edit.
Evtl. muß noch Edit ausgewertet werden, wenn man es auch durch Eingeben eines Wertes ändern darf.

mfg
eddy