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;