cxGrid列的OnValidate事件处理程序

procedure TForm1.cxGrid1DBTableView1AColumnPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  AHandler: TcxEditValidateEvent;
  AView :TcxGridDBTableView;
begin
  AHandler := TcxTextEdit(Sender).Properties.OnValidate;
  TcxTextEdit(Sender).Properties.OnValidate := nil;
  AView := TcxGridDBTableView(TcxGridSite(TcxCustomEdit(Sender).Parent).GridView);
  try
    Table1.Post;
    AView.Controller.EditingController.ShowEdit();
  finally
    TcxTextEdit(Sender).Properties.OnValidate := AHandler;
  end;
end;