创建组件接口-gb∕t 21050-2019信息安全技术网络交换机安全技术要求

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;