Also ich habe da jetzt auf die schnelle nichts gefunden, was ihm helfen könnte.
Mal kurz was in den Editor gehauen:
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]);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SelStart := length(Edit1.Text);
end;
Manko: Der Cursor steht nach dem das Tausendertrennzeichen das erstemal gesetzt wurde am Anfang.