接管数据导航工具栏的beforeaction事件,具体参考代码
procedure TMainForm.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
var
lRegPerson: string;
lMsg: string;
flowEng: TFlowEngine;
fParam: TLoadFlowParam;
tParam: TLoadTaskParam;
flowGuid: string;
begin
case (Sender as TBizDataSetAction).ID of
BizActnConsts.ActionDataSetAppend:
if ViewMode = TViewMode.vmList then
begin
Accept := False;
ViewMode := TViewMode.vmDetail;
DocListDataSet.Active := True;
DocListDataSet.Insert;
end;