TNumberBox 行为从 Delphi XE5 更改为 XE6答案

【问题标题】：TNumberBox behavior changed from Delphi XE5 to XE6TNumberBox 行为从 Delphi XE5 更改为 XE6
【发布时间】：2014-07-17 17:04:46
【问题描述】：

在 XE5 中，可以使用 Back Space 按钮完全清除数字框。在 XE6 中，此行为已更改，因此 Back Space 按钮不再清除整个编辑框，而是留下要删除的最后一个数字（即 Min 属性值）。这种行为使输入值变得更加困难。有没有办法恢复到 XE5 行为？

例子：

在移动窗体上放置一个 TNumberBox 并将 Min 属性设置为 18，将 Max 属性设置为 65。运行程序并尝试仅使用键盘将值更改为 25。

【问题讨论】：

标签： delphi firemonkey

【解决方案1】：

作为一种解决方法（业余）：-

将 NumberBox Min 属性设置为 0 而不是 18，将 Max 属性设置为 65，并定义以下 OnChangeTracking 事件。

procedure TForm1.NumberBox1ChangeTracking(Sender: TObject);
begin
if Length(NumberBox1.Text)=NumberBox1.DecimalDigits then
  if NumberBox1.Text<'18' then
     NumberBox1.Text:='18';
end;

【讨论】：