将面向对象的思想贯穿始终--谈Delphi开发（第二篇）
(接第一篇)
将面向对象的思想贯穿始终，这个题目好象有些大了。我刚才在这里说的，提到的，其实只是在编码的时候，应当注意的一些小问题。所以’贯穿始终’这个用语，改为’牢记在心’可能更为贴切。
对于Delphi某些特性的一点意见：
不知各位注意到没有，在Delphi的Form中放置的所有组件（包括控件），对于其他Form来说，都是可见的，准确地说，这些组件都是该Form的Public部分的内容。这样的结果，一方面是好的，因为其灵活性，其他类可以方便的引用Form上的这些组件，设置它们的属性，执行它们的方法，事件等等；但是另一方面它的缺陷也是显而易见的，那就是导致了Form的封装性的丧失。在我看来，放置于Form之上的这些组件，就使用者的本意而言，应当是作为该Form的私有属性而存在的，对于其他类或其他Form本应该不可见。即使需要访问它们，也应当通过由Form提供一系列的属性方法来间接的访问。
举个例子，让大家有些感性的认识：
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Edit1.Text := abc; // <-- 这个句子的写法，本人很不赞同。
end;
可能很多人写这样的代码的时候脑子里还没有封装性的概念，可是你看了这篇文章，就再也不要干这样的事了(改邪归正吧你!)。在我看来TForm1就是TForm1,TForm2就是TForm2，它们都是为了实现某些特定的功能而存在的，所以它们提供给外界一些接口(一些属性，方法，还有事件,事件说严格一点，也是属性)，来实现它们自己所承诺的功能。至于这些接口的具体实现，应当由它们自身来维护，外界没有必要，也没有办法插手。这个思想，对应到实际应用中，也就是Form2.Edit1是否有必要被From1直接访问的问题了。我本人比较倾向于下面的实现：
//以下为Unit1中TForm1的部分内容
procedure TForm1.Button1Click(Sender: TObject);
begin
TForm2(FAnotherForm).EditText := abc; // <-- 这个实现，体现了封装的思想
end;
//以下为Unit2中TForm2的定义
- 更多Delphi疑问解答：
- 用delphi做这个功能怎么做？
- 问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？
- 有谁知道怎样在Delphi 7中显示代码的行数啊？或者有什么方法能够快速找到已知某一行数的代码啊！
- 关于delphi 操作EXcel的问题
- delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~
- delphi变体记录问题
- delphi能实现反射吗？
- 谁会安装delphi 7 控件啊！会的话，请帮我在线安装一下? QQ785799795
- 在Delphi的Image控件上画移动的图片
- delphi 月份递增的循环查询
- 宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？
- 我是沈阳做delphi开发的，想要集成短信功能到客户管理系统中，麻烦各位达人？
- 我是南昌做delphi开发的，想要集成短信功能到PMS中，分享下吧！
- delphi 取消窗体的最小化怎么弄
- 我是深圳做delphi开发的，想要集成短信功能到知识管理系统中，求达人指点！
