【搞定】组织机构树问题**

alang · 发表于 2007-6-29 14:13:36

procedure TAssist_Dept.otvDeptInserting(Sender: TObject; ANode: TBaseNode; var Allow: Boolean);
begin
if not Assigned(FNodes) then Exit;

Allow := FNodes.IndexOfObject(ANode) <> -1;
end;

ccseasy · 发表于 2007-6-29 14:24:36

怎么这么一写就没有货了。什么数据也没有了

ccseasy · 发表于 2007-6-29 14:52:39

捉摸了一通，搞顶了。汗.........
结了吧。

alang · 发表于 2007-6-29 15:40:19

更深入的原因就要看看Delphi的源代码了(Delphi\source目录下的)
主要看Classes.pas单元中关于对象加载的部分了，大概是 ReadRootComponent

		自动登录	找回密码
密码			立即注册