|
Registriert seit: 12. Aug 2003
Ort: Soest
4.008 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: Edit immer mit 2 Nachkommastellen
17. Sep 2004, 14:35
Kannst auch das hier versuchen (nicht sehr ausgiebig getestet):
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var
SelStart: Integer;
begin
try
SelStart := Edit1.SelStart;
Edit1.Text := Format('%.2f', [StrToFloat(Edit1.Text)]);
Edit1.SelStart := SelStart;
except
end;
end;
|