ＶＣＬ继承层次图（组件）

[Kingron]

http://kingron.myetang.com/vcl_component.gif

VCL的继承层次图，GIF图形，目前只画了可视组件的部分，本来WinControl也Draw完成了的但是他妈的M$的软件出现了错误，在我最后一次操作的时候，丢失了全部的数据，因此重新Draw的时候，就只有这一部分了，他妈的，害得我一个晚上白干了！我ＦＵＣＫ Ｍ＄....赫赫，等下又要被人骂“端起碗来吃饭，放下筷子骂娘”了！

[40Star]

偶像Kingron (对ＣＳＤＮ愤怒中……) ：我好崇拜你，给我签个名吧！

：）

[Kingron]

：wolfAone(¤一步一步网上爬¤) :
Word文档？没有........

[forgot2000]

kingron(对ＣＳＤＮ愤怒中……)，你现在在哪儿呢？

[王集鹄]

TObject
　TPersistent
　　TComponent
　　　TControl
　　　　TGraphicControl
　　　　　TCustomLabel
　　　　　　TLabel
　　　　　TSpeedButton
　　　　　TBevel
　　　　　TShape
　　　　　TImage
　　　　TWinControl
　　　　　TCustomTreeView
　　　　　　TTreeView
　　　　　TCustomEdit
　　　　　　TCustomMemo
　　　　　　　TMemo
　　　　　　TEdit
　　　　　　TCustomMaskEdit
　　　　　　　TMaskEdit
　　　　　TButtonControl
　　　　　　TButton
　　　　　　　TBitBtn
　　　　　　TCustomCheckBox
　　　　　　　TCheckBox
　　　　　　TRadioButton
　　　　　TCustomListControl
　　　　　　TCustomMultiSelectListControl
　　　　　　　TCustomListBox
　　　　　　　　TListBox
　　　　　　TCustomCombo
　　　　　　　TCustomComboBox
　　　　　　　　TComboBox
　　　　　TScrollBar
　　　　　TCustomControl
　　　　　　TCustomGroupBox
　　　　　　　TGroupBox
　　　　　　TCustomGrid
　　　　　　　TCustomDrawGrid
　　　　　　　　TDrawGrid
　　　　　　　　　TStringGrid
　　　　　　TCustomPanel
　　　　　　　TPanel
　　　　　TCommonCalendar
　　　　　　TDateTimePicker
　　　　　　TMonthCalendar
　　　　　TCustomHotKey
　　　　　　THotKey
　　　　　TAnimate
　　　TMenu
　　　　TMainMenu
　　　　TPopupMenu
　　　TCustomActionList
　　　　TActionList
　　　TCustomImageList
　　　　TDragImageList
　　　　　TImageList

[王集鹄]

uses TypInfo;

function ClassHierarchy(mClass: TClass; mDelimiter: string = '\'): string;
begin
Result := '';
while Assigned(mClass) do begin
Result := mClass.ClassName + mDelimiter + Result;
mClass := mClass.ClassParent;
end;
Delete(Result, Length(Result) - Length(mDelimiter) + 1, MaxInt);
end; { ClassHierarchy }

function StrLeft(const mStr: string; mDelimiter: string): string;
begin
Result := Copy(mStr, 1, Pos(mDelimiter, mStr) - 1);
end; { StrLeft }

function StrRight(const mStr: string; mDelimiter: string): string;
begin
if Pos(mDelimiter, mStr) <= 0 then
Result := ''
else Result := Copy(mStr, Pos(mDelimiter, mStr) + Length(mDelimiter), MaxInt);
end; { StrRight }

function ListCount(mList: string; mDelimiter: string = ','): Integer;
var
I, L: Integer;
begin
Result := 0;
if mList = '' then Exit;
L := Length(mList);
I := Pos(mDelimiter, mList);
while I > 0 do begin
mList := Copy(mList, I + Length(mDelimiter), L);
I := Pos(mDelimiter, mList);
Inc(Result);
end;
Inc(Result);
end; { ListCount }

function ListValue(mList: string; mIndex: Integer; mDelimiter: string = ','): string;
var
I, L, K: Integer;
begin
L := Length(mList);
I := Pos(mDelimiter, mList);
K := 0;
Result := '';
while (I > 0) and (K <> mIndex) do begin
mList := Copy(mList, I + Length(mDelimiter), L);
I := Pos(mDelimiter, mList);
Inc(K);
end;
if K = mIndex then Result := StrLeft(mList + mDelimiter, mDelimiter);
end; { ListValue }

function TreeNodeString(mTreeNode: TTreeNode; mDelimiter: string = '\'): string;
begin
Result := '';
while Assigned(mTreeNode) do begin
Result := mTreeNode.Text + mDelimiter + Result;
mTreeNode := mTreeNode.Parent;
end;
Delete(Result, Length(Result) - Length(mDelimiter) + 1, MaxInt);
end; { TreeNodeString }

function TreeViewToLineText(mTreeView: TTreeView; mStrings: TStrings;
mDelimiter: string = '\'): Boolean;
var
I: Integer;
begin
Result := False;
if not (Assigned(mTreeView) and Assigned(mStrings)) then Exit;
mStrings.Clear;
for I := 0 to mTreeView.Items.Count - 1 do
if mTreeView.Items[I].Count = 0 then
mStrings.Add(TreeNodeString(mTreeView.Items[I], mDelimiter));
Result := True;
end; { TreeViewToLineText }

function LineTextToTreeView(mStrings: TStrings; mTreeView: TTreeView;
mDelimiter: string = '\'): Boolean;
var
I, J, K: Integer;
vStrPath: string;
vStrText: string;
vTreeNode: TTreeNode;
vBoolFind: Boolean;
begin
Result := False;
if not (Assigned(mTreeView) and Assigned(mStrings)) then Exit;
mTreeView.Items.Clear;
for I := 0 to mStrings.Count - 1 do begin
vStrPath := '';
vTreeNode := nil;
for J := 0 to ListCount(mStrings[I], mDelimiter) - 1 do begin
vStrText := ListValue(mStrings[I], J, mDelimiter);
vStrPath := vStrPath + mDelimiter + vStrText;
vBoolFind := False;
for K := 0 to mTreeView.Items.Count - 1 do
if mDelimiter + TreeNodeString(mTreeView.Items[K], mDelimiter) =
vStrPath then begin
vTreeNode := mTreeView.Items[K];
vBoolFind := True;
Break;
end;
if vBoolFind then Continue;
vTreeNode := mTreeView.Items.AddChild(vTreeNode, vStrText);
end;
end;
Result := True;
end; { LineTextToTreeView }

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
Memo1.WordWrap := False;
Memo1.Clear;
for I := 0 to ComponentCount - 1 do
Memo1.Lines.Add(ClassHierarchy(Components[I].ClassType));
LineTextToTreeView(Memo1.Lines, TreeView1);
TreeView1.SaveToFile('c:\temp.txt');
end;

[Kingron]

谢~~~~~~~
不过最好不要利用在窗体上面放控件的方法，可以考虑用所有的终端类类作。。。。。

[王集鹄]

Memo1.Lines.Add(ClassHierarchy(TStringList));
Memo1.Lines.Add(ClassHierarchy(TMemoryStream));
.............................................
我已经想办法了，想利用单元名来取得
http://www.csdn.net/Expert/TopicView1.asp?id=683443

[王集鹄]

嘻嘻嘻我给你的只是一个例子，你怎么就当真了？嘻嘻嘻嘻

用 终端类 如果没有好的办法
就只有手工一个个的加代码
“Memo1.Lines.Add(ClassHierarchy(????????????));”

[王集鹄]

如果再在把属性取出来放到数据库中，不就可以自己整理一个ＶＣＬ元件帮助
嘻嘻嘻MyBase一样的功能！嘻嘻嘻嘻

[man8888]

得到类继承图是通过简单编程是可以得到。但是类的属性、
数据域，方法就很难了。
前几天我琢磨想得到一个类的一个Published属性最初定义在哪个父类的
Protected部分，研究了一天没结果。：（

[王集鹄]

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻我将用代码来实现ＶＣＬ继承层次图嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻

Classes -> LineText -> TTreeView -> TreeText

[Kingron]

zswang,我也准备作啊，哈！！！！！
你做我就不作了.......，我的思路还没有整理好，也是准备用TreeView来做....
做好了，通知我一下哦.......要不要数据文件？我有类层次数据文件.....，Excel的，你要Access的我也可以转换出来........

[csdnzjc]

不错，谢啦

[make11111]

up

[DDGG]

Very Good！崇拜中……

[johnmack]

你好厉害呀！

[luckychange]

辛苦了~~~

[man8888]

*******************************************************************
我做出个VCL完整类树，可以类继承方式/类层次两中方式查看整个VCL类信息。
有列出所有published属性，查找一个类，查找一个属性发布在哪个类等功能。
代码行数：400行。
使用控件：TreeView
使用函数：GetPropInfo,IsPublishedProp,TObject.ClassParent
E-mail: [e-mail]
*******************************************************************

[baiyongchun]

谢了!!!!!!!!!

[man8888]

Delphi 完整类树，For D5，D6，D7。
到这里下载我做的程序，按2种方式查看Delphi所有VCL类继承关系：
http://www.softreg.com.cn/shareware_view.asp?id={EEEF56C0-C9B8-4D72-90A6-5FF3C11813BE}
服务器有点慢，D5，D6，D7版程序做完了不过全部上传3M多，下载太慢，过两天
上传其他版的。