如何修补TSpinEdit使用Vista / Win7视觉风格？

Question

Win7必须为TSpinEdit提供好的风格，但我看到过时的风格：

所以箭头不是主题，按钮是旧的。 我用的是Delphi7。如何修补VCL来修复风格？ 好的是：

Answer 1

TSpinEdit是自定义VCL控件。没有具有该功能的Windows控件。即使在Delphi的最新版本中，它看起来与Delphi 7中的完全相同。而且它真的相当丑陋不是吗？

现代Delphi中的控件是在一个名为Vcl.Samples.Spin的单元中实现的。查看我们拥有Vcl.Samples命名空间的documentation：

  

包含随RAD Studio提供的多个样本VCL组件的单位 - 日历，轮廓，标尺和旋钮。

该单元在Delphi 7中的命名方式不同，但原理相同。这些是样本控件，随源代码提供。

所以，你可能会做的是复制TSpinEdit代码，并修改绘画。将按钮绘图更改为您希望的样式。

Answer 2

我不知道Delphi 7是否已经拥有它，但您可以将TEdit与TUpDown结合使用，然后将Association的{​​{1}}属性设置为您的TUpDown。