问题补充: delphi中 类TComponent中定义的第一句 TComponent = class(TPersistent, IInterface, IInterfaceComponentReference) private FOwner: TComponent;//这个是怎么理解的啊，本人看李维的VCL到了108页就看不下去了,为什么类的定义中就可以定义此类，作用是什么啊 在《Delphi COM深入编程》中第一章的接口中就有一个例子，其中就有个接口有类似的定义，不明白应该怎么理解，有大侠会的指点一下吧. type ICompare = interface ['{DDFE0840-E8FB-11D2-9085-0040F6741DE2}'] function CompareWith(ACompare: ICompare; ASortBy: Integer): Integer; end;

提问者:tomore  提问时间:08-10-20 20:29  

TComponet中的FOwner是用于在组件创建时指定“属主”用的，属主的作用是在于当属主Free的时候自动Free掉其下的所有组件。例： var lbl: TLabel;//此处TLabel继承自TComponent begin lbl ;= TLabel.Create(Form1); ... lbl.Free;//通常我们会加上这句，但这里加上就错了 //Delphi会在Form1销毁的时候自动将lbl销 //毁掉 end; 这里TLabel就相当于TComponent，而Form1是TForm类的对象，TForm也是继承自TComponent，既然是这样实现，那在类的定义里楼主所说的情况应该不难理解了吧~~ ICompare = interface //声明一个接口ICompare ['{DDFE0840-E8FB-11D2-9085-0040F6741DE2}'] //全局唯一的ID，用于识别不同的接口 function CompareWith(ACompare: ICompare; ASortBy: Integer): Integer; //此接口所拥有的“动作”,接口本身不实现，由实现接口的类实现此“动作”

0 评论  回答时间: 1224555785