Ich sehe folgende Möglichkeiten
Erstens mit dem UpDown
Setze Minimum= 0 und Increment=8 und addiere 12, wenn du den Wert abfragst.
Zweitens
Benutze eine ScrollBar
Setze Minimum=12, SmallChange=8 und LargeChange=8 und nutze eine Prozedur wie zum Beispiel nachstehende um Position in ein Edit zu stellen.
Delphi-Quellcode:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Edit1.Text:=intTostr(TScrollBar(sender).Position);
end;
Zitat:
PS:
Natürlich könnte ich im Editfeld einfach die Anzahl der "Erweiterungsschritte" anzeigen lassen - also bei meinetwegen 0 angefangen jeweils um 1 inkrementieren, aber warum hat man beim UpDown die verschiedenen Einstellungsmöglichkeiten, wenn sie dann doch einen Workaround erfordern.
Weil deine Vorstellung, wie ein UpDown funktionieren sollte nicht allgemeingültig sind.
Ein Anderer mag andere Vorstellungen haben.
Die Entwickler des TUpDown, können kaum voraussehen welche Ideen die Nutzer des TUpDown irgendwann einmal entwickeln könnten (womit ich nicht sagen will, dass deine Vorstellungen unlogisch sind).