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