Devexpress TcxDateEdit

Question

delphi7 Devexpress 版本5.2 TcxDateEdit控件如何取消控件的光标离开时的有效性验证

Answer 1

引自免费微信小程序：皆我百晓生

在Delphi 7中，使用DevExpress 5.2版本的TcxDateEdit控件时，可以通过设置控件的属性来取消光标离开时的有效性验证。你需要将OnChange事件中的验证逻辑移除，并且设置ValidationStyle属性为vsNone，这样就不会在焦点离开时进行验证了。

以下是详细的步骤和代码示例：

1. 打开你的Delphi 7项目，找到使用到TcxDateEdit控件的窗体（Form）。

2. 双击TcxDateEdit控件打开其属性窗口。

3. 在属性窗口中找到ValidationStyle属性并将其值设置为vsNone。这将阻止在光标离开控件时自动执行验证。

4. 如果你之前在OnChange事件中添加了有效性验证代码，你需要将其删除或者注释掉。右键点击TcxDateEdit控件，在弹出菜单中选择“Go to event...”，然后跳转到OnChange事件处理程序。

5. 检查OnChange事件处理程序内的代码，如果有验证相关部分，例如：

   procedure TForm1.TcxDateEdit1Change(Sender: TObject);
   begin
     // 原来的验证代码
     if notIsValidDate(TcxDateEdit(Sender).Value) then
       ShowMessage('Invalid date');
   end;
   

   将这部分代码注释掉或者删除。

6. 保存更改并重新运行你的应用程序。此时，TcxDateEdit控件应该不会在光标离开时进行有效性验证了。

如果你需要一个完整的例子，这是一个简化后的窗体单元代码示例：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils, ExtCtrls, DcxControls, DcxComCtrls;

type
  TForm1 = class(TForm)
    cxDateEdit1: TcxDateEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置ValidationStyle属性为vsNone
  cxDateEdit1.ValidationStyle := vsNone;
end;

end.

这个例子中，我们在FormCreate事件中设置了ValidationStyle属性。由于没有在OnChange事件中添加任何验证代码，因此在默认情况下，TcxDateEdit控件将不进行有效性验证。