Delphi制作数据感知控件之浮想联翩(6)
2008-04-09 04:28:02来源：互联网 阅读 ()
告诉IDE将以何种工作方式进行显示，关于TPropertyAttributes可以参考帮助看看，这里不再赘述。我们这里是以只读对话框的方式显示的，Object Inspector将在About属性旁边出现一个省略号按钮。当用户单击这个按钮，就调用Edit方法。
覆盖GetValue函数，是为了省略号按钮旁出现“(About)”的字样，并且只读。
function TAboutEdit.GetValue: string;
begin
Result := ''''(About)''''
end;
好了，工作基本完成，如果你还想进一步控制，还可以在研究TPropertyEditor类的代码。这里就不细说了。
也许你产生疑问了：这样能行了吗？控件怎么知道这个Package的属性方法，没关联呀。对了，要想把编辑器和控件关联起来还要2项工作：
1、 控件增加一个string 类型的”About”属性
2、 在编辑器的单元里注册属性编辑器
第一步，很简单，大家早就熟悉增加一个属性的方法了：
private
FAbout: string
Published
Property About: string read FAbout write FAbout;
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
下一篇：动态数组介绍----Delphi
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
