TUpDown Limitierung auf SmallInt

[himitsu]

TUpDown nutzt halt noch die alten 16-Bit-Messages, aber es gibt von einigen Anbietern auch komponenten, welche die "neueren" Messages verwendet.


zu Muetze1 (also die Hauptfuntion):

Delphi-Quellcode:

procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  UpDown1.Tag := UpDown1.Tag + NewValue;
  Edit1.Text := IntToStr(UpDown1.Tag);
  AllowChange := False;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  UpDown1.Tag := StrToInt(Edit1.Text);
end;

// Starteinstellungen:
// Edit1.Text = '0'
// ansonsten sind die beiden Komponenten nicht miteinander verbunden