tcxDateEdit 的编辑消息错误

Edit Message Error of tcxDateEdit

我正在使用 Delphi 7. 我使用组件 tCxDateEdit, 在 ValidationOptions 中,我将 evoRaiseException 设为 false evoshowErrorIcon 为真 当我插入错误的日期,如 "31/02/2015" 时,我的日期组件旁边会出现一个图标,并且我有一条消息错误,如 "Date incorrecte" 有没有办法改变错误信息?

提前致谢。

您可以像这样修改控件的OnValidate事件中显示的文本

procedure TForm1.cxDBDateEdit1PropertiesValidate(Sender: TObject;
  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
  ErrorText := DisplayValue + ' is not a valid date';
end;