Hallo marabu,
vielen Dank für deine Antwort, du hast mein Problem richtig erkannt.
Ich habe es gleich ausprobiert und es hat funktioniert bis auf
das Problem, dass ich kein Leerzeichen ohne Fehlermeldung eingeben konnte.
Dazu musste ich die Exit-Routine noch erweitern:
Delphi-Quellcode:
procedure TDemoForm.EditExit(Sender: TObject);
var
fTest: Extended;
begin
with Sender as TEdit do
begin
if (trim(text)<>'')
then
begin
if (TryStrToFloat(Text, fTest))
then Text := Format('%.2n', [StrToFloat(Text)])
else ActiveControl:=TEdit(sender);
end;
end;
end;
Vielen Dank
Alex