Testcode:

zusammenfalten · markieren

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

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.

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

Hallo,

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

Achso, danke. Manchmal isses schon soweit...