[erledigt] SpinEditEx und FloatSpinEditEx

[juelin]

Habe die Werte von MinValue und MaxValue mit FloatToStr() ausgegeben.
MinValue = -99999,999
MaxValue = 99999,999
Also unterschiedlich.
Gruß
Jürgen

[m.fuchs]

Du kannst natürlich auch die Rückmeldung an den Benutzer noch verbessern:

Code: Alles auswählen

procedure TForm1.FloatSpinEditEx1Change(Sender: TObject);
var
  CurrentValue: Double;
begin
  CurrentValue := StrToFloatDef(FloatSpinEditEx1.Text, Double.MinValue);
  if (CurrentValue >= FloatSpinEditEx1.MinValue) and (CurrentValue <= FloatSpinEditEx1.MaxValue) then begin
    FloatSpinEditEx1.Color := clGreen;
    Button1.Enabled := True;
  end else begin
    FloatSpinEditEx1.Color := clRed;
    Button1.Enabled := False;
  end;
end;

Damit sieht man sofort ob der eingegebene Wert falsch ist und als Bonus kann der OK-Button deines Forms auch noch deaktiviert werden, wenn die Werte nicht passen.