Herzlich willkommen in der Delphi-PRAXiS.
Wenn das Edit-Feld nicht direkt manipuliert werden muss, dann erreichst du dein Ziel über die Komponente TUpDown recht einfach:
Delphi-Quellcode:
procedure TDemoForm.UpDownChanging(Sender: TObject;
var AllowChange: Boolean);
begin
with Sender as TUpDown do
Edit.Text := Format('%.1f mm', [Position / 10]);
end;
Soll der Benutzer das Edit-Feld auch direkt bearbeiten können, dann ist mehr Aufwand zu treiben.
Freundliche Grüße vom marabu