TUpDown и TEdit с собственными подписями

Question

Я связал TEdit с TUpDown. Он автоматически обновляет текст TEdit со значением TUpDown.position. Но я хочу отображать пользовательские подписи в зависимости от значения TUpDown.position. Для этого я отсоединил TEdit от TUpDown и написал собственные обработчики onClick/onChanging. Но в обоих случаях TUpDown.position содержит предыдущее значение (не увеличенное / уменьшенное). Какое событие я должен использовать для обновления TEdit.text в зависимости от правильного значения TUpDown.position?

Я использую Delphi XE4.

Answer 1

Использовать OnChangingEx событие. Оно имеет NewValue параметр, который содержит новое значение, на которое изменяется элемент управления.

procedure TForm19.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
  NewValue: Integer; Direction: TUpDownDirection);
begin
  Edit2.Text := IntToStr(NewValue);
end;