通过原代码学习TComponent类的机制(1)
来源:互联网 发布:linux yum安装make 编辑:程序博客网 时间:2024/06/10 08:46
学习DELPHI最好的方法是看DELPHI的VCL原代码爱看他的机制本文就类TComponent的原代码来看他的机制.
{ 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的引用
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);//我们可以看到他的子组件的引用是用TLIST来保存的
begin
if FComponents = nil then FComponents := TList.Create;
FComponents.Add(AComponent);
AComponent.FOwner := Self;//给刚刚加上的主件赋上拥有者属性
end;
destructor TComponent.Destroy; file://可以看到每一个组件都维护一个FFREENOTIFILES的列表
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);//如果自己析构的时候,对自己FFREENOTIFILES里面引用的对象调用Notification,把自己析构造的事件告诉他们
end;
DestroyComponents;
if FOwner <> nil then FOwner.RemoveComponent(Self);
inherited Destroy;
end;
procedure TComponent.FreeNotification(AComponent: TComponent);//通过这个过程可以证实FFREENOTIFILES是一个列表这个列表维护自己析构的时候给那些对象通知
begin
if (Owner = nil) or (AComponent.Owner <> Owner) then
begin
// Never acquire a reference to a component that is being deleted.
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;
- 通过原代码学习TComponent类的机制(1)
- 通过原代码学习TComponent类的机制(1)
- delphi TComponent类(1)
- VCL类学习之(七) TComponent
- 组件基类TComponent
- delphi TComponent类 2
- delphi 的 TComponent: 组件对象
- 常用的javascript原代码(1)
- 核心库类之TComponent类
- VCL3大基本类之TComponent
- 五子棋的原代码
- 计算器原代码的问题
- Tini 的VC原代码
- Ping的原代码
- java HashMap的原代码
- TCPMP 原代码分析1
- TC下的俄罗斯方块原代码
- 获取句柄的详细信息:(原代码)
- 教你维护MySQL安装的安全性和完整性
- 实例详解CSS滤镜(3)Blur属性
- DirectShow之接口实战篇(二)
- MySQL权限提升及安全限制绕过漏洞
- 实例详解CSS滤镜(2)Mask属性
- 通过原代码学习TComponent类的机制(1)
- MySQL 5.0 数据库的新特性的存储过程
- 实例详解CSS滤镜(1)概述
- ModelMaker 新手起步(一)
- MySQL出击企业级市场 “自立为王”尚早
- XHTMLCSS的静态页面实现多风格选择的方法
- 使用ClientSocket控件实现CSDN论坛帖子的自动回复
- 通过MySQL内置全文检索实现中文的相关检索
- 捷足先登学用CSS:HTML结构化