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

2016-02-19 16:23 2 1 收藏

今天图老师小编要向大家分享个Delphi中使用纯正的面向对象方法教程，过程简单易学，相信聪明的你一定能轻松get！

【 tulaoshi.com - 编程语言】

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的参数中，因为其参数是一个控件数组。
　　　当然，这样的面向对象的设计方法是要比以前那种“拖拉”的方法复杂，不过，我们得到了高度的封装性，我认为值得，各位呢？
　　

来源:https://www.tulaoshi.com/n/20160219/1611929.html

上一篇： ASP入门基础教程-Response对象的常用方法
下一篇： Linux函数库的创建方法

看过《Delphi中使用纯正的面向对象方法》的人还看了以下文章更多>>

Delphi中使用资源文件

标签：编程语言网络编程

目的,在Delphi中使用资源文件本例是将一个Flash动画加到我的们程序中,在程序启动时再释放出来. 先新建一个文件文件写入内容:另存为:SwfFile.rc 然后用 brcc32.exe 生成资源文件.res 然后在Delphi中加入一行(最后一行) implementation {$R *.dfm} {$R SwfFile.RES}//就是这行 procedur...

C语言中的面向对象(4)－面向对象思想

标签：编程语言网络编程

经常听见别人说面向对象的程序设计，以前在学校上课的时候，也有开面向对象程序设计这门课。可是不幸的是，这些都是以C＋＋，甚至VC＋＋为基础的。而更加不幸的是，多年以来我一直是一个C的使用者。在学校的时候，我主要做的是硬件上的驱动层，和底层功能层。 !-- frame contents -- !-- /frame contents -- 在工作以后，又做的是手...

JavaScript面向对象之方法重载

标签： Web开发

作者：Truly http://truly.cnblogs.com/ 日期：2007.7.29 上次我们在《在JavaScript中使用面向对象》讨论了对象的声明、成员的声明、全局变量和局部变量以及命名空间的处理。本文继续讨论面向对象，今天介绍方法重载。 http://www.cnblogs.com/Truly/archive/2007/07/24/830013.html 同时上次有人询问Function对象的apply方法和c...

DELPHI面向对象支持特点--保护级类成员的应用

标签：编程语言网络编程

今天在CSDN论坛里面游逛，发现这样的一个帖子《刚才看到一位武林高手的几行精妙代码，百思不得其解，希望各位指点》，本着向各大武林高手学习的态度，我看完了整个帖子，发现内容甚为经典，记录于此，作个总结： type TStringGridEx = class(TStringGrid); procedure TForm1.Button1Click(Sen...

在VB中使用文件对象

标签：编程语言网络编程

自从VisualBasic第一次发布到现在，它的大部分主要的特性大都被修改了不下一次。但文件操作部分却是个例外。在最原始的Basic语言中，文件就是用文件号（filenumber）来读写的。用一个数字来操作文件，或许者多少有一点晦涩难懂，这也令大多数的初学者感到不习惯和难以理解。随着VisualBasicScriptingEdition2.0版本的发布，微软提供了...

查看更多精彩>>