精华公布栏

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 用Delphi“玩”编程 [3]
发信站: 哈工大紫丁香 (2001年03月13日17:45:59 星期二), 转信

用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编写的程序拥有丰富的内涵
。



  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇下一篇>>

------------------------------------------------------------------------
--------
  Delphi 技巧集

  Copyright 1999.11 by 东子 Mail to me!
感谢广州视窗提供主页空间

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]