其他语言

位置:IT落伍者 >> 其他语言 >> 浏览文章

Delphi中使用纯正的面向对象方法


发布日期:2020年11月01日
 
Delphi中使用纯正的面向对象方法
Delphi的VCL技术使很多程序员能够非常快速的入门程序员门只要简单的拖动再加上少量的几个Pascal语句呵呵一个可以运行得非常良好的Delphi程序!恭喜你你已经可以进行程序开发这个伟大的事业了不过当你学了一段时间后也许就不这么想了哦因为Delphi是支持面向对象的语言其实所有的VCLComponent都是基于面向对象的语言设计的那么当我们用这些面向对象的东东来设计出一些不怎么面向对象的东东好象有些不伦不类的感觉当然这里不讨论用不用面向对象方法的好坏也不想引起相关人士的抗议毕竟萝卜青菜

在Delphi中所有的控件都声明在Publish的关键字下这也是利用组件编程的默认位置这样如果一个Form想要引Form(假如其为Unit)中的某个控件时只要Use Unit就OK了如果Form要引用Form的东东也可以如法泡制不过如果哪天我不小心把Form中的控件改了名那岂不是Form中调的的代码全部要重写了么?所以我主张把这些控件作为Form类的专用元素外部窗体可以通过Form类公布的属性来访问其中的控件

比如

TForm=class(Tform)

privte

Button:Tbutton

end;

不过这样的设计是解决了成员的高度封装不过编译会出现错误说Tbutton类找不到原因是我们把Button放到了Private中Delphi不会自动帮我们注册Tbutton类其实解决这个问题也很简单只要在

Initialization

中加入RegisterClasses([Tbutton])

就OK了当然如果有不同的类的控件都可以如法炮制放在RegisterClasses的参数中因为其参数是一个控件数组               

上一篇:如何用Delphi编写自己的可视化控件

下一篇:DELPHI文件、磁盘操作函数