DELPHI基础教程:Delphi自定义部件开发(二)[1]

 我来答
世纪网络17
2022-11-08 · TA获得超过5939个赞
知道小有建树答主
回答量:2426
采纳率:100%
帮助的人:141万
展开全部

   Delphi部件编程

   创建属性

  属性(Property)是部件中最特殊的部分 主要因为部件用户在设计时可以看见和操作它们 并且在交互过程中能立即得到返回结果 属性也很重要 因为如果将它们设计好后 将使用户更容易地使用 自己维护起来也很容易

  为了使你在部件中更好地使用属性 本部分将介绍下列内容

  ● 为什么要创建属性

  ● 属性的种类

  ● 公布(publishing)继承的属性

  ● 定义部件属性

  ● 编写属性编辑器

   为什么要创建属性

  属性提供非常重要的好处 最明显的好处是属性在设计时能出现在Object Inspector窗口中 这将简化编程工作 因为你只需读用户所赋的值 而不要处理构造对象的参数

  从部件使用者的观点看 属性象变量 用户可以给属性赋值或读值 就好象属性是对象的域

  从部件编写者的观点看属性比对象的域有更强的功能

  ⑴ 用户可以在设计时设置属性

  这是非常重要的 因为不象方法 只能在运行时访问 属性使用户在运行程序之前就能定制部件 通常你的部件不应包含很多的方法 它们的功能可以通过属性来实现

  ⑵ 属性能隐藏详细的实现细节

  ⑶ 属性能引起简单地赋值之外的响应 如触发事件

  ⑷ 用于属性的实现方法可以是虚拟方法 这样看似简单的属性在不同的部件中 将实现不同的功能

   属性的类型

  属性可以是函数能返回的任何类型 因为属性的实现可以使用函数 所有的Pascal类型 兼容性规则都适用属性 为属性选择类型的最重要的方面是不同的类型出现在Object Inspector窗口中的方式不同 Object Inspector将按不同的类型决定其出现的方式

  你也能在注册部件时描述不同的属性编辑器

  下表列出属性出现在Object Inspector窗口中的方式

  表 属性出现在Object Inspector窗口中的方式

  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

  属性类型       处 理 方 式

  ───────────────────────────────────────

  简单类型   Numeric Character和 String属性出现在Object Inspector中 用户可以直接编辑

  枚举类型 枚举类型的属性显示值的方式定义在代码中 选择时将出现下拉式列表框 显示所有的可能取值

  集合类型 集合类型出现在Object Inspector窗口中时正如一个集合 展开后 用户通过将集合元素设为True或False来选择

  对象类型 作为对象的属性本身有属性编辑器 如果对象有自己的published属性 用户在Object Inspector中通过展开对象属性列 可以独立编辑它们 对象类型的属性必须从TPersistent继承

  数组类型 数组属性必须有它们自己的属性编辑器 Object Inspector没有内嵌对数组属性编辑的支持

  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

   公布继承的属性

  所有部件都从祖先类型继承属性 当你从已有部件继承时 新部件将继承祖先类型的所有属性 如果你继承的是抽象类 则继承的属性是protected或public 但不是published 如想使用户访问protected或public属性 可以将该属性重定义为published 如果你使用inControl继承 它继承了Ctl D属性 但是protected的 因此用户在设计和运行时不能访问Ctl D 通过在新部件中将Ctl D重声明为published 就改变了Ctl D的访问级别 下面的代码演示如何将Ctl D声明为published 使之在设计时可被访问

  type

  TSampleComponent=class(inControl)

  published

  property Ctl D;

  end;

   定义部件属性

  ⑴ 属性的声明

  声明部件的属性 你要描述

  ● 属性名

  ● 属性的类型

  ● 读和设置属性值的方法

  至少 部件属性应当定义在部件对象声明的public部分 这样可以在运行时很方便地从外部访问 为了能在设计时编辑属性 应当将属性在published部分声明 这样属性能自动显示在Object Inspector窗口中 下面是典型的属性声明

  type

  TYourComponent=class(TComponent)

  …

  private

  FCount: Integer { 内部存储域 }

  function GetCount: Integer; { 读方法 }

  procedure SetCount(ACount: Integer) { 写方法 }

  pubilic

  property Count: Integer read GetCount write SetCount;

  end;

  ⑵ 内部数据存储

  关于如何存储属性的数据值 Delphi没有特别的规定 通常Delphi部件遵循下列规定

  ● 属性数据存储在对象的数据域处

  ● 属性对象域的标识符以F开头 例如定义在TControl中的属性FWidth

  ● 属性数据的对象域应声明在private部分

  后代部件只应使用继承的属性自身 而不能直接访问内部的数据存储

  ⑶ 直接访问

  使属性数据可用的最简单的办法是直接访问 属性声明的read 和write部分描述了怎样不通过调用访问方法来给内部数据域赋值 但一般都用read进行直接访问 而用write进行方法访问 以改变部件的状态

  下面的部件声明演示了怎样在属性定义的read 和write部分都采用直接访问

  type

  TYourComponent=class(TComponent)

  …

  private { 内部存储是私有 }

  FReadOnly: Boolean; { 声明保存属性值的域 }

  published { 使属性在设计时可用 }

  property ReadOnly: Boolean read FReadOnly write FReadOnly;

  end;

  ⑷ 访问方法

  属性的声明语法允许属性声明的read和write部分用访问方法取代对象私有数据域 不管属性是如何实现它的read 和write部分 方法实现应当是private 后代部件只能使用继承的属性访问

  ① 读方法

  属性的读方法是不带参数的函数 并且返回同属性相同类型的值 通常读函数的名字是 Get 后加属性名 例如 属性Count的读方法是GetCount 不带参数的唯一例外是数组属性 如果你不定义read方法 则属性是只写的

  ② 写方法

  属性的写方法总是只带一个参数的过程 参数可以是引用或值 通常过程名是 Set 加属性名 例如 属性Count的写方法名是SetCount 参数的值采用设置属性的新值 因此 写方法需要执行在内部存储数据中写的操作

  如果没有声明写方法 那么属性是只读的

  通常在设置新值前要检测新值是否与当前值不同

  下面是一个简单的整数属性Count的写方法

  procedure TMyComponent SetCount( value: Integer)

  begin

  if value <>FCount then

  begin

  FCount := Value;

  update;

  end;

  end;

  ⑸ 缺省属性值

  当声明一个属性 能有选择地声明属性的缺省值 部件属性的缺省值是部件构造方法中的属性值集 例如 当从Component Palette选择某部件置于窗体中时 Delphi通过调用部件构造方法创建部件 并决定部件属性初始值

  Delphi使用声明缺省值决定是否将属性值存在DFM文件中 如果不描述缺省值 Delphi将总是保存该属性值 声明缺省值的方法是在属性声明后加default指令 再跟缺省值

  当重声明一个属性时 能够描述没有缺省值的属性 如果继承的属性已有一个 则设立没有缺省值的属性的方法是在属性声明后加nodefault指令 如果是第一次声明属性 则没有必要加nodefault指令 因为没有default指令即表示如此

lishixinzhi/Article/program/Delphi/201311/25117

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
上海华然企业咨询
2024-10-21 广告
上海华然企业咨询有限公司专注于AI与数据合规咨询服务。我们的核心团队来自头部互联网企业、红圈律所和专业安全服务机构。凭借深刻的AI产品理解、上百个AI产品的合规咨询和算法备案经验,为客户提供专业的算法备案、AI安全评估、数据出境等合规服务,... 点击进入详情页
本回答由上海华然企业咨询提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式