delphi 5企业级解决方案及应用剖析003.PDFVIP

下载 第3章 Delphi 5企业级应用技术要点 3.1 组件和VCL D e l p h i 中不但有相当多的标准例程，还有一系列数量更大、更重要的的类。其中一些是组 件类，展示在 Components Palette 上，另一些是更为通用的类。 D e l p h i 的系统库被称为Vi s u a l Components Library (可视化组件库)或简称为V C L ，尽管它不仅仅包括了组件的内容。本节中， 我们通过对一些通用类的概括，集中介绍 D e l p h i类库的结构，同时还将深入到了 V C L 的一些 复杂的技术细节。 3.1.1 Object类 D e l p h i 的核心是类的层次结构。系统中的每一个类都是 TO b j e c t 的子类，所以整个类的层 次结构只有一个根类。这允许用户在系统中用 TO b j e c t数据类型替代任何类的数据类型。例如， 事件处理程序通常有一个 TO b j e c t类型的 S e n d e r参数，这意味着 S e n d e r对象可属于任何类，因 为每个类都是从TO b j e c t类派生出来的。这种方式的一个典型缺陷是，在对象上进行操作时用 户必须知道它的数据类型。事实上， O b j e c t类型的变量或参数只能应用于由 TO b j e c t定义的对 象方法和属性。例如，如果该变量或参数引用一个 T b u t t o n类型的对象，用户将不能直接访问 它的C a p t i o n属性。解决这种问题的方法是，使用 i s和as RT T I操作符来检查数据类型并作实际 的类型转换。例如，如果TO b j e c t类型的S e n d e r参数应用了一个按钮，用户可以这样写： (Sender As Tbutton).Caption 这种方法的好处是，当类型失败时， D e l p h i会引起异常，这样可以保证代码的安全。 TO b j e c t类有一些可以用于任何对象的对象方法，包括那些用户定义的类中的对象。大多 数TO b j e c t类的对象方法经常被系统引用；并且，如果用户需要编写一个工具以扩展 D e l p h i编 程环境的时候，它显得特别有用。 一些TO b j e c t对象方法在编写 Wi n d o w s通用程序时非常有用。例如， C l a s s N a m e对象方法 用类的名称返回一个字符串；因为它是类的对象方法，用户可以将其应用于对象和类，因此， 下面的两条语句的效果是相同的： Text:=Label1.ClassName; Text:=Tlabel.ClassName; 使用类名的机会不是很多，但在向类本身或基类检索类引用时，它也可能非常有用。可 以使用C l a s s Ty p e和C l a s s P a r e n t对象方法来做这些工作。一旦有类引用，可以把它当做对象使 用；例如调用C l a s s N a m e对象方法。 另一个有用的对象方法是 I n s t a n c e S i z e ，它返回对象运行时的大小。尽管可能使用 S i z e O f 全局函数，但实际上，该函数返回的是一个对象的引用—指针的大小，它的大小总是 4个字 节—而不是对象自身的大小。 实际上我们作一个简单的小总结，上述的各种有关显示类信息的 TO b j e c t类的对象方法， 可以归结如下： 56 第一篇 使用Delphi 5构建企业级应用 下载 • 显示类名称：TO b j e c t . C l a s s n a m e ; • 显示类的父类：TObject. ClassParent; • 显示对象的运行是大小：TO b j e c t . I n s t a n c e S i z e ； 下面的例子是一个如何获取一个组件的祖先类的类型和祖先类的有关属性，该例子分别 放置了T b u t t o n和T l i s t B o x组件于F o r m上，当用户单击按钮时，这个按钮的类名和它的所有祖 先类的类名都将加入到l i s t b o x 中。程序如下： procedure TForm1.Button1Click(Sender: TObje