Du könntest auch gleich bei der Eingabe auf Zahlen prüfen, etwa so:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not ((key in ['0'..'9']) or (ORD(key) = 8) or (ORD(key) = 13)) then key := CHR(0); end; |
Wenn du einen recht kleinen Wertebereich abzudecken hast, kannst du auch das Edit auf ReadOnly setzen, eine UpDown-Komponente daran binden und dort deinen Minimum- und Maximum-Wert einstellen. Ausserdem kannst du einen Increment-Wert setzen wenn du nicht nur um 1 erhöhen/verringern möchtest bei jedem Klick.
Hoffe ich konnte dir helfen
