文件名称：创建组件接口-gb∕t 21050-2019 信息安全技术 网络交换机安全技术要求
文件大小：1.19MB
文件格式：PDF
更新时间：2024-06-29 06:59:49
Delphi 组件
13.3 创建组件接口 这些是创建组件接口的步骤： 1. 包括窗体单元 2. 添加接口属性 3. 添加 Execute 方法 13.3.1 包括窗体单元 要为包装器组件初始化并显示被包裹的对话框，必须给包装器组件单元的 uses 语句添 加此窗体的单元。 添加 About 到 AboutDlg 单元的 uses 语句后。 现在，uses 语句现在看起来如下： uses Windows, SysUtils, Messages, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, About; 窗体单元总是声明窗体类的实例，对 About box 来说，窗体类是 TAboutBox，About 单 元包括下列内容： var AboutBox: TAboutBox; 因此，通过给 uses 语句添加 About，使 AboutBox 可用于包装器组件。 13.3.2 添加接口属性 在继续进行以前，确定包装器需要的属性，使开发人员在其应用程序中能够把此对话框 用作组件。然后，可以给组件的类声明添加这些属性的声明。 包装器组件中的属性比编写规则的组件所创建的属性稍有些简单。记住，这时你只是创 建包装器可以来回传回给对话框的一些永久数据，你能使开发人员在设计时设置数据，所以， 在运行时包裹器能把它们传递到对话框。 声明接口属性需要给组件类声明中添加二个声明： 一个 private 类域，它是包装器用于保存属性值的变量 发布的属性声明本身，它指定属性名，并告诉它哪一个域用于保存 这种接口属性不需要访问方法。它们使用对其保存数据的直接访问。按约定，保存属性 值的类域有与此属性相同的名称，但是在前面有字母 F。域和属性必须是同一类型。 例如，要声明整型接口属性 Year，做如下声明： type TMyWapper = class(TComponent) private FYear: Integer; // field to hold the Year-property data published property Year: Integer read FYear write FYear; // property matched with storage end;