So sieht es "richtig" aus:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var
dummy: double;
s: String;
begin
s := StringReplace(Edit1.Text, ThousandSeparator, '', [rfReplaceAll]);
dummy := StrToFloat(s);
Edit1.Text := Format('%.0n', [dummy]);
SendMessage(Edit1.Handle, WM_KEYDOWN, VK_END, 0);
SendMessage(Edit1.Handle, WM_KEYUP, VK_END, 0);
end;
Nur Kommazahlen gehen noch nicht.