delphi做的程序能否封装成一个类？？？？？？？？

Question

delphi 做的程序是否能封装成一个类，被他人继承呢？
请求知道者给出例子。谢谢。

Answer 1

当然可以了!这是OBJECT PASCAL中类的专长了!要源码吗？暂时找不到!
开发自己的Delphi构件 
　　廖为民 　　Borland公司推出的可视化编程工具Delphi已经受到众多程序员的青睐，越来越多的人开始学习使用Delphi来开发各类应用程序。但如何编写自己的Delphi构件对许多Delphi程序员来说还是比较陌生的，很多参考书中也未曾提及这一点。因此，有必要掌握构件的编写方法。 　　一、构件编写的基础知识 　　1. Delphi构件源文件包的基本构成 　　（１）*.PAS文件：程序语言文件，是程序员编写的程序源代码； 　　（２）*.FRM文件：窗体描述文件，是程序员所用窗体以及窗体类各种构件特征的具体描述（如大小、位置等）； 　　（３）*.DCR文件：动态构件资源文件，定义构件登记时显示在构件工具栏上的位图； 　　（４）*.RES文件：资源源文件，定义构件包要用到的资源。 　　此外，有些构件还可能用到*.DCU、*.OBJ、*.DLL等文件。 　　2. 面向对象PASCAL的继承与封装 　　Delphi构件实际上是从TComponent类继承发展而来的子类，编写构件实质上就是编写特殊的类，因而有必要掌握面向对象PASCAL的类语法，而类最重要的两个特征就是继承与封装。 　　（１） 类的继承 　　在PASCAL中，类的继承是指从一个父类（TParentClass）继承得到子类（TNewClass），语法格式如下： 　　Type 　　TNewClass = Class (TParentClass) 　　…… 　　（２） 类的封装 　　PASCAL用关键字Private、Protected、Public和Published来实现类的封装。 　　１）Private：用Private声明过的变量、过程及函数是私有的，只能被类中的其它函数、过程使用，对于类的外部是不可见的。 　　２）Protected：在Protected部分说明的变量、函数、过程，可以被本类及其子类使用。 　　３）Public：在Pulic部分说明的变量、函数及过程可以被允许使用类单元的任何程序单元使用。 　　４）Published：在Published部分说明的变量,如构件在Object Inspector栏中显示的属性及事件,可在程序设计时使用。 　　3. 在构件中重载父类的方法和增加新的方法 　　如果想修改父类中的某个方法，则首先应该弄清该方法是否能够被重载。如果该方法在父类和祖始类中的非私有部分被作过virtual或dynamic定义，则可重载。当你重载一个方法时，首先必须在interface区的Private、Protected及Public中的任一部分说明函数原型并在尾部加上关键字override，然后在implementation区定义其实现代码。 　　在Delphi构件编写中增加新的方法非常容易，只需在interface区的Private、Protected及Public中的任一部分描述函数原型（若方法可能在以后被重载，则应在尾部加上virtual或dynamic关键字），然后在implementation区定义方法的具体实现代码。 　　4. 为构件增加属性 　　Delphi中用关键字property声明属性字段,属性有read和write可选从句（如果只使用read从句，则属性便是只读的）。其语法格式为： 　　property MyProperty: Atype 　　read GetProperty write SetProperty； 　　或 　　property MyProperty: Atype 　　read FProperty write SetProperty； 　　注意：GetProperty、SetProperty分别为读、写属性过程，FProperty为变量。 　　5. 为构件增加事件 　　Delphi的编程方法被称为事件驱动编程。例如，当用户按下按钮时便触发了一个Click事件，程序员在编程过程中所做的事情便是定义事件触发后的处理过程。 　　在Delphi中，事件也是使用关键字property来声明的。其语法格式为： 　　property OnNewEvent: AEventType 　　read FOnNewEvent write FOnNewEvent； 　　声明事件后往往要将Windows的消息传递与事件联系起来才能真正实现事件驱动。因此，我们还要增加一种新的特殊类型的动态的“消息管理”方法。其语法格式为： 　　procedure MsgPro(var Msg: Tmessage); message AMsgIndex； 　　其中，关键字message声明此为一个消息管理方法。AmsgIndex为一整数常数，作Windows消息动态索引,当索引为AmsgIndex的消息传递至应用程序时便会执行MsgPro过程。为了将消息管理方法与事件联系起来，可在MsgPro过程中放入如下的代码，其作用是查看FonEvent是否正指向一个有效的过程，若指向则执行此过程,这样就将事件处理过程与消息联系在一起了。 　　…… 　　Begin 　　Inherited； 　　If assigned(FOnNewEvent) then 　　 FonNewEvent(self); 　　End; 　　6. 设计构件登记过程 　　当构件类编写完成以后，所要做的事情就是设计如何将构件放到构件工具栏中。在Delphi中，可用Register过程来完成。 　　Register过程的说明必须放在单元的interface区，过程的具体代码则应放到单元的implementation区中。 　　例如，要将TmyComponent构件登记到构件栏的Samples页，其代码如下： 　　Interface 　　…… 　　Procedure Register; 　　Implementation 　　Procedure Register; 　　Begin 　　 RegisterComponents('Samples',[TMyComponent]); 　　End; 　　7. 编写构件时可能会用到的重要工具Object Browser 　　要想真正掌握构件的编写，就必须深入了解类的层次与结构，可通过Delphi开发包中的Browser工具来清楚地查看类的层次、结构等，但Browser只有在程序编译后才可用。如果想要知道某一构件的结构和层次，则可将它放入一个空窗体进行编译，再用Browser来查看。关于Browser的具体用法，可参考Delphi的帮助手册，在此不再赘述。 　　二、编写构件的基本步骤 　　下面要开发的新构件TnewLabel是从TLabel类继承来的，它与Tlabel具有相似的焦点感应能力：当鼠标移到TLabel上时，文字颜色发生改变；当鼠标离开时，颜色恢复。它还将增加一个EnterTextColor属性以及OnMouseEnter和OnMouseLeave事件。属性EnterTextColor中可以输入鼠标进入构件时文字的颜色，OnMouseEnter、OnMouseLeave事件中则可输入程序员自己的代码来指定鼠标进入、离开构件时的动作。 　　1. 选中Component菜单项中的New Component选项。在Ancestor Type框中填入TLabel，在Class Name框中填入TNewLabel，在Palette Page框中填入Samples，在Unit File Name框中填入NewCom.pas，然后单击按钮Create Unit就进入到代码编辑状态。 　　2. 使用Tools菜单中的Image Editor来创建编辑文件NewCom.dcr，为TNewLabel类建立位图。 　　3. 增加新属性EnterTextColor，并为读写属性增加私有方法SetEnterTextColor和私有变量FEnterTextColor。 　　键入如下的代码： 　　Private 　　 FEnterTextColor:：TColor； 　　 SetEnterTextColor（AColor：TColor）； 　　Published 　　 Property EnterTextColor：TColor 　　 Read FEnterTextColor write SetEnterTextColor（AColor）； 　　 … 　　Implementation 　　Procedure TNewLabel.SetEnterTextColor(AColor:TColor)； 　　Begin 　　 FEnterTextColor：=AColor； 　　End； 　　4. 增加事件OnMouseEnter和OnMouseLeave。 　　加入如下的代码： 　　Private 　　 FOnMouseEnter,FOnMouseLeave：TNotifyEvent； 　　Published 　　 OnMouseEnter：TNotifyEvent 　　read FOnMouseEnter write FOnMouseEnter; 　　 OnMouseLeave：TnotifyEvent 　　Read FOnMouseLeave write FOnMouseLeave; 　　…… 　　5. 增加保护方法MouseEnter、MouseLeave、CM_MouseEnter和CM_MouseLeave。 　　加入如下的代码： 　　protected 　　procedure MouseEnter；virtual； procedure MouseLeave；virtual； 　　procedure CM_MouseEnter(var msg：TMessage)；message CM_MOUSEENTER； 　　procedure CM_MouseLeave(var msg：TMessage)；message CM_MOUSELEAVE； 　　…… 　　Implementation 　　Procedure MouseEnter； 　　Begin 　　If assigned(FOnMouseEnter) Then 　　 FOnMouseEnter(self)； 　　End； 　　Procedure CM_MouseEnter(var msg:Tmessage)； 　　Begin 　　 Inherited; 　　 MouseEnter; 　　End; 　　6. MosueLeave、CM_MouseLeave的实现代码与MouseEnter、CM_MouseEnter的类似。Delphi为所有消息提供缺省处理。在写消息句柄时应禁止缺省处理，因此在CM_MouseEnter和CM_MouseLeave过程中调用了inherited。 　　重载构造和析构方法的代码如下： 　　Public Constructor Create( AOwner : TComponent ); override; Destructor Destroy; override; 　　…… 　　Implementation 　　Constructor Create( AOwner : TComponent ); 　　Begin 　　 inherited Create(AOwner); 　　 FLeaveTextColor：=Font.Color; 　　 FEnterTextColor：=Font.Color; 　　End; 　　Destructor TNewLabel.Destroy; 　　Begin 　　 Inherited Destroy; 　　End; 　　上述构件开发过程是在Delphi 3.0中进行的。 　　当你安装好这个构件并测试后，你会发现它还不错：Delphi构件的编写竟是如此容易而又充满乐趣！ 　　当然，构件的编写相对于普通应用程序的开发来说要困难一些，但是一旦你能够熟练地开发各种构件时，则从中得到的好处是值得你花费一些时间去掌握它的。 

Answer 2

完全可以
type 
  Ttest = class
  private
  public
  
  end;