重载下面函数:
procedure TRWZXXXINFO.FixPopupMenu(APopupMenu: TPopupMenu; ActionList: TActionList; AFilterType: TFilterType);
var
I: Integer;
lMenuItem: TMenuItem;
lTaskTypeInfo: TCMTaskTypeInfo;
begin
if (AFilterType = TFilterType.ftPost) then
begin
for I := APopupMenu.Items.Count - 1 downto 0 do
if (APopupMenu.Items[I].Action <> nil) and
(FindBizOperation(APopupMenu.Items[I].Action as TAction) <> '') then
APopupMenu.Items.Delete(I);
if FTaskCenterInfo.Task = nil then
Exit;
if FTaskCenterInfo.Task.IsFlowTask then
begin
if OperatorBizOperations.IndexOf('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation') >= 0 then
begin
lMenuItem := TMenuItem.Create(APopupMenu);
APopupMenu.Items.Insert(0, lMenuItem);
lMenuItem.Action := GetBizOperationAction('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation', ActionList);
Exit;
end;
end;
end else
FixPopupMenu(APopupMenu, ActionList);
end;