带有自定义字幕的 TUpDown 和 TEdit

Question

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

我用的是Delphi XE4.

Answer 1

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

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

带有自定义字幕的 TUpDown 和 TEdit

TUpDown and TEdit with custom captions

delphi

updown