cxGrid列的OnValidate事件处理程序

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;