delphi - 带有自定义标题的 TUpDown 和 TEdit

Question

我将 TEdit 关联到 TUpDown。它使用 TUpDown.position 值自动更新 TEdit 文本。但我想根据 TUpDown.position 值显示自定义标题。为此，我将 TEdit 与 TUpDown 取消关联，并编写了自定义 onClick/onChanging 处理程序。但是这两种情况 TUpDown.position 都包含先前的值（不是递增/递减的值）。根据正确的 TUpDown.position 值，我应该使用什么事件来更新 TEdit.text？

我使用德尔福 XE4。

Answer 1

使用OnChangingEx事件。它有一个NewValue参数，保存控件正在更改的新值。

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