upDown-Button mit float-Werten

[marabu]

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