Question

delphi 类的树型图

我想知道delphi所有默认类的层次关系。在网上没找到类的树形图，求个。

Answer 1

Delphi只提供了子类查父类的功能，没有提供父类查子类的功能，例如，你可以通过代码查出TButton是继承自TButtonControl，但你无法通过代码知道有哪些类是继承自TButtonControl。

下面一段代码供参考，可以得到指定的类（例如：tButton）的继承情况。
procedure TForm1.FormCreate(Sender: TObject);
var tobj: tclass;
begin
tobj := tButton;
while tobj <> nil do
begin
memo1.Lines.Add(tobj.ClassName);
tobj := tobj.ClassParent;
end;
end;

如果你想知道所有默认类的层次，你就将所有你想知道的类都有这个函数查一下，然后再将得到的结果组织一下，用你希望的样式输出。

Answer 2

delphi 出血者, 额～～
子节点加入鼠标双击事件
在树的OnDBClick事件里写你要做的事就行了，
子节点可以自己判断一下，if RzTreeView1.Selected = RzTreeView1.Items.GetFirstNode then Exit;