TUpDown Limitierung auf SmallInt

[himitsu]

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.