【搞定】[请求] 请教lisb，如何将默认通讯簿设置为组织机构？**

roice

参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=19456 4楼修改后，显示名称来源中还是“个人通讯簿”，在“从列表选择”内变为组织机构了，但是选择组织机构时，点取部门，收件人、抄送人、秘密抄送 按钮都是灰色的，无法选取。 必须在“显示名称来源”中再次选择 组织机构后，下面的按钮才变为有效，见下图：

shangxy

cbbSource 的ItemIndex改为1
这步修改了么?

roice

改了，没效果，后来发现这么改可以实现：

在198 行修改如下：
  cbbSource.ItemIndex := 1; // 按照帖子修改为1
  // ShowAddresslistTree;      // 这里注释掉

修改下面函数：
procedure TADDRESSBOOKFORM.BizFormCreate(Sender: TObject);
begin
  FAddressDMForm := TAddressDM.Create(context);
  FCommExpandFlag := False;
  FIndExpandFlag := False;
  cbbSource.ItemIndex := 1; // 这里是新添加上的
  ShowOrganizationTree;  //加这一句
end;

这样修改后默认的收件人位置是“组织机构”，这样可以吧？

shangxy

procedure TADDRESSBOOKFORM.BizFormCreate(Sender: TObject);
begin
  FAddressDMForm := TAddressDM.Create(context);
  FCommExpandFlag := False;
  FIndExpandFlag := False;
  cbbSource.ItemIndex := 1; // 这里是新添加上的
  ShowOrganizationTree;  //加这一句
end;


这样就可以了。

roice

好的，已经实现了，谢谢！