在Delphi表单上的控件旁边添加验证器符号

Question

我有一个应用程序，其中有许多形式遵循视觉形式继承。 每个表单都有标准的delphi组件以及自定义组件。

需要添加表单验证功能。也就是说，如果控件的值无效，则需要在控件旁边绘制一个小的红色圆圈或者是指示图像。

此绘图功能必须在每个控件上的应用程序中可用。

实现此功能的最佳方法是什么？是否有任何设计模式可以提供帮助？

谢谢＆amp;问候， 帕文。

Answer 1

JEDI的JVCL有TJvValidator组件，可以为你做到这一点。这是TJvValidators容器的link，可以帮助您入门。

Answer 2

我在验证方法中过去所做的事情是将任何未通过验证的值的控件颜色更改为$ 00C4C4FF，如果通过则将控件颜色更改为clWindow。 （我使用常量clInvalidEdit）。在我也使用带有平面边框的Raize控件的项目中，我还将边框调整为clRed。我的必填字段通常颜色为$ 00B0FFFF（同样是常量clRequiredEdit）。

大多数情况下，我会创建一个名为ValidateForm的方法，如果表单有效则返回一个布尔值，如果不是则返回false。 validateform检查每个字段的有效性并根据需要调整颜色，并将活动控件设置为失败的第一个字段。