系统暂时是提供上移和下移这样的方式,你可以参见“业务模型\系统空间\系统功能\组织机构\组织结构设计基类\组织机构设计器窗体基类”这个窗体中的actUpNodeExecute过程,自己实现一个移动组织机构对象的方法。
procedure TBaseOrgDsgnForm.actUpNodeExecute(Sender: TObject);
begin
if IsBizTreeView then
OrgTreeView.MoveUpNode(OrgTreeView.Selected, iMoveStep)
else if IsBizChart then
OrgChart.MoveUpNode(OrgChart.Selected, iMoveStep);
end;