原文http://blog.csdn.net/lailai186/article/details/7442385
学习DELPHI最好的方法是看DELPHI的VCL原代码爱看他的机制本文就类TComponent的原代码来看他的机制.
- constructor TComponent.Create(AOwner: TComponent);
- begin
- FComponentStyle := [csInheritable];
- if AOwner <> nil then AOwner.InsertComponent(Self);
- end;
-
- procedure TComponent.InsertComponent(AComponent: TComponent);
- begin
- AComponent.ValidateContainer(Self);
- ValidateRename(AComponent, , AComponent.FName);
- Insert(AComponent);
- AComponent.SetReference(True);
- if csDesigning in ComponentState then
- AComponent.SetDesigning(True);
- Notification(AComponent, opInsert);
- end;
-
- procedure TComponent.ValidateRename(AComponent: TComponent;
- const CurName, NewName: string);
- begin
- if (AComponent <> nil) and not SameText(CurName, NewName) and
- (AComponent.Owner = Self) and (FindComponent(NewName) <> nil) then
- raise EComponentError.CreateResFmt(@SDuplicateName, [NewName]);
- if (csDesigning in ComponentState) and (Owner <> nil) then
- Owner.ValidateRename(AComponent, CurName, NewName);
- end;
-
- procedure TComponent.ValidateContainer(AComponent: TComponent);
- begin
- AComponent.ValidateInsert(Self);
- end;
-
- procedure TComponent.ValidateInsert(AComponent: TComponent);
- begin
- end;
-
- procedure TComponent.Insert(AComponent: TComponent);
- begin
- if FComponents = nil then FComponents := TList.Create;
- FComponents.Add(AComponent);
- AComponent.FOwner := Self;
- end;
-
- destructor TComponent.Destroy; file:
- begin
- Destroying;
- if FFreeNotifies <> nil then
- begin
- while Assigned(FFreeNotifies) and (FFreeNotifies.Count > 0) do
- TComponent(FFreeNotifies[FFreeNotifies.Count - 1]).Notification(Self, opRemove);
- FreeAndNil(FFreeNotifies);
- end;
- DestroyComponents;
- if FOwner <> nil then FOwner.RemoveComponent(Self);
- inherited Destroy;
- end;
-
- procedure TComponent.FreeNotification(AComponent: TComponent);
- begin
- if (Owner = nil) or (AComponent.Owner <> Owner) then
- begin
-
- assert(not (csDestroying in (ComponentState + AComponent.ComponentState)));
- if not Assigned(FFreeNotifies) then FFreeNotifies := TList.Create;
- if FFreeNotifies.IndexOf(AComponent) < 0 then
- begin
- FFreeNotifies.Add(AComponent);
- AComponent.FreeNotification(Self);
- end;
- end;
- Include(FComponentState, csFreeNotification);
- end;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
.2.7 TComponent分枝
TComponent分枝包含了所有从TComponent而不是TControl继承下来的VCL＆CLX类。对于这个分枝中的对象，你在设计时刻可以直接在窗体重操作它们，但是在运行时刻它们不会为用户所见。它们是持续的对象，具有以下功能：
n 出现在组件面板中，并且在窗体重可以被改变
n 拥有和操作其它组件
n 加载和保存它们本身
TComponent引入的几个方法指明了组件在设计时刻的行为和随着组件保存哪些信息。流功能（保存窗体中对象属性的窗体文件的加载和保存）在这个分枝中出现。组件的发布属性被规定为持续的并且将自动被“流”。
TComponent分枝也引入了所有权的概念，该概念取自组件库。有两个属性支持所有权：Owner和 Components。每个组件都含有一个Owner属性指定其所有者。
一个组件可能会拥有另外的组件，在这种情况下，所有被包含组件都会出现在该组件的Components属性中。
每个组件的构造器都会包含一个参数指定新组件的所有者。
如果该引入的所有者存在，那么这个组件就会自动被添加到所有者的Components属性中。
Components属性除了用来存储所包含组件列表外，还可以提供自动释放其所有的组件。一旦一个组件有了一个所有者，那么当其所有者被释放是，它也会自动释放。
例如，因为TForm继承自TComponent，所以当一个窗体被销毁时，其所包含的所有组件都会被自动销毁并且释放其所占用的内存（当然，每个组件必须正确地设计其析构器使其能够被自动的清除）。
如果一个属性类型是Tcomponent或者其后裔，当流系统读入它时会自动创建一个其实例。如果一个属性类型是TPersistent而不是TComponent，那么流系统会通过该属性使用一个已经存在的该类型实例，并且为这个实例属性读取值。
下面是TComponent分枝的某些类：
n TActionList,维护一个动作列表，这个动作列表提供了一系列使你的程序可以对用户输入作出反应的抽象动作
n TMainMenu，为一个窗体提供菜单栏以及其下拉菜单
n TOpenDialog, TSaveDialog, TFontDialog, TFindDialog, TColorDialog等等，这些类提供一些通用的对话框以显示＆收集信心
n TScreen，一个用以跟踪应用程序所创建的窗体＆数据模块、活动窗体、窗体中的活动组件、屏幕的尺寸及其组成、程序可用的光标及字体等数据的类。
不需要一个可视界面的组件一般都直接源自TComponent类。如果需要创建一个诸如TTimer的组件，你可以直接继承TComponent，这些组件可以出现在组件列表中，但不是通过设计时刻的可视界面而是通过代码来访问其内在功能。尺寸的huonList,
delphi TComponent类 2【转】
原文：http://www.cnblogs.com/chuangyiyuan/p/6473221.html
