wobei ich es dann eher so erweitern würde
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text) <> '') and (Trim(Edit1.Text) <> '-') then
UpDown1.Tag := StrToInt(Edit1.Text);
end;
hatte oben absichtlich auf die Try- und Def-Version verzichtet, damit man bei Falscheingabe mit entsprechenden Fehlermeldungen "bombardiert" wird
PS: völlig unoptimierte Zugriffe, aber sowas ist hier auch nicht unbedingt nötig ... soooooo schnell tippt ja eh keiner
[add]
aber was eventuell nicht schaden könnte, wäre noch die Abfrage der Cursortasten für Hoch und Runter, im Edit, damit auch da die Taastatursteuerung wie "normal" funktioniert.