【结贴】能把待办任务单独拖拽出来显示吗？**

huixiangtao

procedure TPANELINFO.LoadGroupDefines;
var
  Storage: TPersistentDataSetStorage;
  Rule: TPersistentDataSetStorageRule;
  GroupDefine: TMyInfoGroupDefine;
  Default_: TMyInfoGroupDefine;
  I, U: Integer;
  temList: TStringList;
begin
  I := 0;
  U := 0;
  Storage := TPersistentDataSetStorage.Create;
  Rule := TPersistentDataSetStorageRule.Create;
  Default_ := TMyInfoGroupDefine.Create(nil);
//***********ZPM 修改开始**********************
  temList := TStringList.Create;
//***********ZPM 修改结束**********************
  try
    Rule.ContentFieldName := 'FCONTENT';

    DataSetGroups.Open;
    try
      if DataSetGroups.Locate('FID', 'default', [TLocateOption.loCaseInsensitive]) then
      begin
        Storage.Load(Default_, DataSetGroups, Rule);
        DataSetGroups.Delete;
      end;

      FGroupDefines := []; // 干掉警告
      SetLength(FGroupDefines, DataSetGroups.RecordCount);

//***********ZPM 修改开始**********************
{
      I := 0;
      DataSetGroups.First;

      while not DataSetGroups.Eof do
      begin
        GroupDefine := TMyInfoGroupDefine.Create(nil);
        try
          Storage.Load(GroupDefine, DataSetGroups, Rule);
          GroupDefine.Merge(Default_);

          if FRightsCalculator.Calc(GroupDefine.RightsDefine) = TRightsValue.RightsAccept then
          begin
            FGroupDefines[I] := GroupDefine;
            GroupDefine.Tag := I;
            Inc(I);
            FGroupDefineDimensionIndex.AddObject(GroupDefine.Dimension, GroupDefine);
          end
          else
            GroupDefine.Free;
        except
          GroupDefine.Free;
          raise;
        end;

        DataSetGroups.Next;
      end;
}
      if GetADskSetAreas(GetDesktopID, temList) then
      begin
        for I:= 0 to temList.Count-1 do
        begin
         if DataSetGroups.Locate('FID', temList[I], [TLocateOption.loCaseInsensitive]) then
          begin
            GroupDefine := TMyInfoGroupDefine.Create(nil);
            try
              Storage.Load(GroupDefine, DataSetGroups, Rule);
              GroupDefine.Merge(Default_);

              if FRightsCalculator.Calc(GroupDefine.RightsDefine) = TRightsValue.RightsAccept then
              begin
                FGroupDefines[U] := GroupDefine;
                GroupDefine.Tag := I;
                FGroupDefineDimensionIndex.AddObject(GroupDefine.Dimension, GroupDefine);
                Inc(U);
              end
              else
                GroupDefine.Free;
            except
              GroupDefine.Free;
              raise;
            end;
          end;
        end;//end for
      end;
//***********ZPM 修改结束**********************

      SetLength(FGroupDefines, I);
      SetLength(FGroupLeftJoinExprs, I);
      SetLength(FGroupRightJoinExprs, I);
    finally
      DataSetGroups.Close;
    end;

  finally
    Default_.Free;
    Rule.Free;
    Storage.Free;
//***********ZPM 修改开始**********************
    temList.Free;
//***********ZPM 修改结束**********************
  end;
end;

这段代码我跟踪了一下，确实很晕，而且我把    for I:= 0 to temList.Count-1 do  begin……end；
注释掉看了看，该出来的还是全出来了，似乎没起作用。
我要在哪儿做什么动作呢？能给进一步的指导吗？

shangxy

就是控制这个循环当中具体显示第几个，不是注释掉。
如果你显示的第一个那么就是 for I:= 0 to 0 do  begin……end；

huixiangtao

恩，这样果然就行了。
如下图所示，我想显示代办任务的时候，右边的“任务中心”，“计划中心”，“邮件”就不要显示了。
我system登录Business，看了看系统配置，这三个在快捷按钮中。
该如何实现呢？

shangxy

你仅仅不要快捷方式那部分？还是整个右面板？

huixiangtao

整个右面板，都不要了

shangxy

业务模型\协同系统\面板功能\工作台\工作台\主窗体
procedure TMAINFORM.BizFormCreate(Sender: TObject);
begin
  FUserDskSetChangedMessageHandler := TUserDskSetChangedMessageHandler.Create(DoUserDskSetChangedExecute);
  Context.AddMessageHandler(TUserDskSetChangedMessage.GetID, FUserDskSetChangedMessageHandler);
  SearchNewsDocView.Visible :=False;// TRightPanelDoc.CanShow;
end;
最后一句根据条件设置。

huixiangtao

恩，好了，非常感谢！
结贴吧！