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 ? ;) )

[jim_raynor]

OnChanging deutet auch darauf hin, dass der Wert geändert werden soll. Und der AllowChange-Parameter schreit gerade dazu danach, dass die Änderung noch nicht statt gefunden hat ;). Naja kenne die Komponente nicht, aber es gibt bestimmt noch ein OnChange Ereigniss oder so, dass dann tatsächlich nach der Änderung ausgelöst wird.

[turboPASCAL]

Guck dir mal das Beispiel an, man sollte doch meinen das man den richtigen Wert bekommt.

[Hawkeye219]

Hallo,

Zitat:

Zitat von jim_raynor

[...]aber es gibt bestimmt noch ein OnChange Ereigniss oder so, dass dann tatsächlich nach der Änderung ausgelöst wird.

Das Ereignis heißt in diesem Fall OnClick.

Gruß Hawkeye

[turboPASCAL]

Achso, danke. Manchmal isses schon soweit... :wall: