通过原代码学习TComponent类的机制(1)

原创 2003年05月23日 11:47:00

   学习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;

delphi TComponent类 2

学习DELPHI最好的方法是看DELPHI的VCL原代码爱看他的机制本文就类TComponent的原代码来看他的机制. { TComponent } constructor TComponen...
  • lailai186
  • lailai186
  • 2012年04月09日 19:55
  • 2337

delphi接口问题——当类继承自TComponent和TObject

因为TComponent已经实现了接口IInterface,所以它的子类,继承接口之后不需要再重新实现引用计数之类的方法。而直接继承自TObject的类则没有,所以要实现接口,必须实现IInterfa...
  • guanguan241
  • guanguan241
  • 2012年11月23日 21:27
  • 897

delphi TComponent类(1)

TComponent类 TComponent类直接由TPersistent派生。TComponent的独特特征是它的属性能够在设计期间通过ObjectInspector来控制,能够拥有其他组件。 ...
  • lailai186
  • lailai186
  • 2012年04月09日 19:53
  • 1707

VCL类学习之(七) TComponent

TComponent is the common ancestor of all component classes.UnitClassesDescriptionTComponent is the b...
  • formiss
  • formiss
  • 2008年12月29日 14:15
  • 1518

Caffe学习系列(1):命令行解析

caffe的运行提供三种接口:c++接口(命令行)、python接口和matlab接口。本文先对命令行进行解析,后续会依次介绍其它两个接口。 caffe的c++主程序(caffe.cpp)放在根目录...
  • vicdd
  • vicdd
  • 2016年09月22日 17:16
  • 506

C++之friend友元类和友元函数

将数据和处理数据的函数封装在一起,构成类,实现了数据的隐藏,无疑是面向对象程序设计的一大优点。但是有时候封装不是绝对的。 友元函数提供了不同类或对象的成员函数之间、类的成员函数和一般函数之间进行数据共...
  • Mary19920410
  • Mary19920410
  • 2017年04月10日 21:44
  • 392

核心库类之TComponent类

 VCL Framework 的核心组件基础类TComponent,提供的基础服务:   *作为基础根组件类以及基础组建管理功能   *可同时扮演Container组件和单一组件的功能   *基础组件...
  • powder111
  • powder111
  • 2009年05月08日 11:35
  • 544

NT服务程序

请先看一个例子: unit AppService; interface uses Windows, Messages, SysUtils, Classes, Graphics, C...
  • jackalfly
  • jackalfly
  • 2012年03月14日 11:35
  • 1914

TCPMP 原代码分析1

这段时间在研究TCPMP(The Core Pocket Media Player),这是一个应用于智能设备上的开源媒体播放软件。TCPMP是一个功能强大开放式的开源多媒体播放器,播放器主要由核心框架...
  • nick_TS16949
  • nick_TS16949
  • 2009年05月20日 14:02
  • 1455

常用的javascript原代码(1)

原代码一:防止别人复制其内容 function click() {if (event.button==2) {alert(对不起,本站不提供内容的复制)}}document.onmousedown=c...
  • wjq821230
  • wjq821230
  • 2005年09月28日 22:58
  • 992
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通过原代码学习TComponent类的机制(1)
举报原因:
原因补充:

(最多只允许输入30个字)