荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: georgehill (佐治·希尔【多情网虫无情网】), 信区: Program
标 题: 用Delphi“玩”编程（3）
发信站: BBS 荔园晨风站 (Sun Mar 12 02:21:11 2000), 转信
资料整理·中国程序员网站
用Delphi“玩”编程（3）
定义“对象”
江伟芸
上一期中我们用Delphi建立了一个程序。文中多次提及“对象"。
什么是对象呢？按最简单的理解，我们程序中的按钮、文字框、窗体等都可以叫做对
象。一个对象是一个数据类型。对象就像记录一样，是一种数据结构。Delphi是基于
面向对象编程的先进开发环境。Delphi之所以能够方便地建造应用程序，应归功于各
种各样的“建筑材料"―“对象"。
每一个对象都有它的属性（Properties）和事件（Events）这些由组件“特性编
辑器"（Object Inspector）控制。特性编辑器分成Properties 页、Events页和对象
列表三部分。Properties 页用于修改对象的特性。每个对象都有的特性有Name（名称
）Color（颜色）Font（字体）等等。Delphi为每个属性预定义了一个值，都可以按你
的意愿修改。但对于Name特性，建议各位保持它自定义名称。因为当同类对象超过一
个的时候Delphi 把同类的对象定为类似“Button1"“ Button2"这样的名称，123总是
比各有不同的名称容易记。Events页用于建立响应事件的句柄，列表中列出窗体内的
所有对象的名称和类别。
在Delphi中使用的一部分对象都是在设计和运行期间可以看见的部件，例如编辑
框、按钮等。一些部件，在设计时看不见，而在运行时可以看见。下面为我们的程序
添加一个仅在运行期可见的对话框：
双击Form1的OnCloseQuery事件右边的空格，添加斜体部分代码。
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var userchoiceWord:word;
begin
userChoiceword:= messagedlg('真的要退出吗？', mtconfirmation, [mbyes, mbno
],0);
canclose:=(userChoiceword=mryes);
end;
添加代码后运行，关闭程序。退出程序前会弹出一个对话框以确认你是否确实要
退出。
以上两种对象称为可视化对象。另外有些部件，在程序的运行期间没有任何可视
化的显示，但您却可以在您的应用程序中使用它们，称为非可视化对象，定时器
（TTimer）就是其中一种。下面为程序添加一个计时器，使窗体每隔一段时间变色。
在对象栏System项中选定 并放置；
双击它，添加
i:=i＋100;
form1.color:=＄00C080FF＋i;
这里为Timer的 OnTimer事件添加了代码，设定“运行期"的Color（颜色）特性。
“运行期特性"即只在程序运行的时候才表现的特性。但现在还不能马上运行，因为电
脑不认识代码中的“i"，我们必须先为它领“身份证"。
上移代码编辑器的滚动条找到下文所示部分，添加代码
var
Form1: TForm1;
i:integer;
implementation
现在运行，我们的程序在不停地变脸呢。
这期我们简单了解了几种“对象"这个Delphi的精灵，程序就是各种对象巧妙堆砌
的结果。“对象"的含义非常广，进一步学习还需要更多的专业知识。在下一期我们将
介绍Object Pascal语言，是它使得用Delphi编写的程序拥有丰富的内涵。
--
那你可不可以教我，
有什么办法可以不去喜欢一个人呢？
-- Bye 赤明莉香 --
我是来自大富翁的小美！^_^
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店