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

被忽视的同学

被忽视的同学

2016-02-19 16:23

今天图老师小编要向大家分享个Delphi中使用纯正的面向对象方法教程,过程简单易学,相信聪明的你一定能轻松get!
Delphi的VCL技术使很多程序员能够非常快速的入门:程序员门只要简单的拖动再加上少量的几个Pascal语句,呵呵,一个可以运行得非常良好的Delphi程序!恭喜你,你已经可以进行程序开发这个伟大的事业了。不过,当你学了一段时间后也许就不这么想了哦。因为Delphi是支持面向对象的语言,其实所有的VCL Component都是基于面向对象的语言设计的,那么当我们用这些面向对象的东东来设计出一些不怎么面向对象的东东好象有些不伦不类的感觉,当然,这里不讨论用不用面向对象方法的好坏,也不想引起相关人士的抗议,毕竟“萝卜青菜”嘛。
  在Delphi中,所有的控件都声明在Publish的关键字下,这也是利用组件编程的默认位置。这样,如果一个Form2想要引Form1(假如其为Unit1)中的某个控件时,只要Use Unit1就OK了,如果Form1要引用Form2的东东,也可以如法泡制。不过,如果哪天我不小心把Form2中的控件改了名,那岂不是Form1中调的的代码全部要重写了么?所以,我主张把这些控件作为Form类的专用元素,外部窗体可以通过Form类公布的属性来访问其中的控件。
   比如:
    TForm1=class(Tform)
                                     privte 
                                            Button1:Tbutton
                                 end;
  不过,这样的设计是解决了成员的高度封装不过,编译会出现错误说Tbutton类找不到,原因是我们把Button1放到了Private中,Delphi不会自动帮我们注册Tbutton类,其实解决这个问题也很简单只要在
              Initialization
                中加入 RegisterClasses([Tbutton])
   就OK了,当然如果有不同的类的控件都可以如法炮制放在RegisterClasses的参数中,因为其参数是一个控件数组。
   当然,这样的面向对象的设计方法是要比以前那种“拖拉”的方法复杂,不过,我们得到了高度的封装性,我认为值得,各位呢?
                                       
展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
Delphi中使用纯正的面向对象方法

Delphi面向对象的编程方法

编程语言 网络编程
Delphi面向对象的编程方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Delphi面向对象的编程方法(一)

Delphi
Delphi面向对象的编程方法(一)

Delphi面向对象的编程方法(三)

Delphi
Delphi面向对象的编程方法(三)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi面向对象的编程方法(二)

Delphi
Delphi面向对象的编程方法(二)

Delphi面向对象的编程方法(四)

Delphi
Delphi面向对象的编程方法(四)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

ASP入门基础教程-Response对象的常用方法

ASP入门基础教程-Response对象的常用方法

Linux函数库的创建方法

Linux函数库的创建方法
下拉加载更多内容 ↓