Du kannst auch ein ganz normales Edit nehmen und als Ereignis würde ich eher OnExit nehmen. Manche User geben ganze gerne auch ma 1,2E2 ein.
Dann vielleicht eine eigene function:
Delphi-Quellcode:
function StrToFloatDefEx(Value: string; DefaultValue, MinValue, MaxValue: double): double;
begin
- Leerzeichen rauslöschen
- als DecimalSeparator auch '.' zulassen
- mit StrToFloatDef in Zahl umwandeln
- Grenzen überprüfen
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Text := FloatToStr(StrToFloatDefEx(Edit1.Text, 0, -400, 400));
end;