TUpDown hat eine Macke ?

[turboPASCAL]

Testcode:

Delphi-Quellcode:

// ...

implementation

{$R *.dfm}

var n: SmallInt = 0;

procedure TForm1.UpDown1Changing(Sender: TObject; 
  var AllowChange: Boolean);
begin
   StaticText1.Caption := inttostr( UpDown1.Position ); // <--<<
end;

procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);

begin
  case Direction of
    updUp   : if n+UpDown1.Increment <= UpDown1.Max then inc(n, UpDown1.Increment);
    updDown : if n-UpDown1.Increment >= UpDown1.Min then dec(n, UpDown1.Increment);
  end;

  label1.Caption  := inttostr( n );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  n := UpDown1.Position;
end;

end.

Also UpDown in Normalhandling hinkt immer einen Positionswert gegenüber den Selbstbau
im UpDownChangingEx hinterher. Der Fehler, wenn es denn einer ist, fiel mir bei Delphi 6
und Delphi 2005 PE auf.

Ist das jmd aufgefallen, mach ich was falsch oder stecht da ein Denkfehler drin ?

( Sorry drei Fragen auf einmal ? )