第一章-Delphi入门(三)(2)

1.2.5.1 为用户操作建立“事件”

单击窗体上的“Rectangle”按钮,在Object Inspector中,点动“Events”页标签,出现事件窗口。在本例程中,我们只关心OnClick事件,即按钮接收到左键单击时应用程序所作出的反应。在Object Inspector窗口中双击OnClick事件右端的值段,会使得Delphi激活库代码编辑器,并将光标停在该按钮所对应的过程的begin...end之间。“Rectangle”按钮的功能是使Shape部件的形状为矩形。联系前文我们查看过的Shape部件的“Shape”属性,现在,我们要做的是在程序中控制部件的属性。

在光标处键入以下的程序段: 

Shape1.Shape := stRectangle; 

用同样的方法,在Button2和Button3的OnClick事件响应内复制以上语句,并分别将赋值号后的属性值改为stRoundRect和stEllipse。为防止输入错误导致程序运行出错,建议您使Shape1部件的Object Inspector可见,检视属性Shape的各个值并对应输入。

在代码编辑器中,Delphi自动建立的过程以关键字Procedure开头,用户可以在begin…end之间加入自己的程序,也可以定义变量。这个程序块对用户的外部事件(此例中是按动按钮)进行响应。我们称之为事件处理过程。 

1.2.5.2 使用颜色编辑对话框 

图标按钮“Color”要控制部件Shape1的颜色,我们可以调入颜色编辑对话框,用以选择要变成的颜色。这时就要用到运行时不可视的部件ColorDialog了。同样地使图标按钮BitBtn1响应OnClick事件,在它的过程中加入以下的语句:

ColorDialog1.Execute;

Shape1.Brush.Color := ColorDialog1.Color; 

这样,图标按钮的功能也就完成了。

初学者可能对这样的程序段不能理解。其实也是十分简单的。查看ColorDialog的Brush属性,就会发现它是个集属性,在其下还有一个Color选项,正是我们想改变的属性。既然我们想将图形的颜色变得更加丰富多彩,它本身提供的几种颜色就已不能满足要求了。用颜色编辑器可以得到更多的色彩。程序的第一句用Execute方法,使得ColorDialog运行它本身。当用户在对话框中进行操作,选定了一种颜色时,即使得TColorDialog对象的一个属性Color置为选定颜色的值。将此值赋给Shape1的Brush属性的子属性Color,就将选定的颜色加到了图形上。

读者的要求可能会是,怎样尽快的了解这些这些方法、属性和域呢?下文对使用联机帮助的简单介绍可能会对您有所裨益。 

1.2.6 使用联机帮助Help 

事实上,使用联机帮助是您全面地了解可用的方法、对象的域、属性等信息的最快捷途径。您还可以参考Delphi给定的例程。较为简单有效的方法是使用Help中的搜索功能。如果您对一个对象知之甚少,选用主菜单中的Help Help Topics项,在弹出的帮助对话框,选用Indexes(“索引”)页,Delphi 2.0会提示您输入要检索的主题。以您想用的部件的对象名作为检索主题词,可以参阅很多基本的信息。例如,上文的例程中,在编辑框中键入对象的名称TColorDialog,在词条中就会出现该主题,按动Display按钮显示出TColorDialog的帮助信息。查看method,可以找到能应用在CclorDialog1上的方法Execute;仔细阅读它的功能,上述的编程便不难理解了。Properties中提供了部件的所有属性,在关键属性Key Properties前加上了“金钥匙”,提供了详尽的说明。在Task中您可以查阅该对象的其它相关主题,还可以参阅Example中的应用例程。用帮助窗口的Edit各种功能进行复制、剪贴等操作。

如果您已经对对象有一定的了解,想查阅它的具体方法、域等,可以直接用主题词进行检索。 

以上,我们已经完成了简单的例程。运行您的程序,选用各个按钮改变图形的颜色和形状。如图1.9所示。虽然它只是一个“小玩具”,却直观地给您一个用Delphi编程的印象。对比一下您亲手编制的程序量和程序的功能,您就会理解Delphi为程序员提供了怎样的方便。

时间: 2024-11-17 19:05:48

第一章-Delphi入门(三)(2)的相关文章

第一章-Delphi入门(三)(6)

1.3.3.1 Group Box.Radio Group及Panel部件 Group Box(群组框).Radio Group(选项按钮组)部件都可以将部件分类.成组.它们都有标题,可以用文字表征成组部件的标题或信息.Radio Group可以进行Column和Item属性的设定,以决定其上的无线按钮的提示文本及显示格式.Panel部件也可以达到将部件分组的目的.通过编程向窗口加一个操作板部件,以书写提示和帮助信息,也不失为一种好方法.以上三个部件都在Standard页. 1.3.3.2 No

第一章-Delphi入门(三)(3)

1.3 Delphi 2.0的可视化部件用法简介 本节中,我们将较为深入地讲解Delphi的部件.这是编制大型复杂应用程序的必由之路.下面,我们将对各种部件分类进行简单的介绍,以便于您在编程时能够较快地了解有哪些部件可能会满足您的要求,并对其重要的方法.属性等有一个大致的了解. 基本技巧.工具的介绍在本章的第4节中,交互阅读这两部分,多创制几个试验程序,有助于您迅速进入Delphi世界,尽早将这一精妙软件用于实际工作中. 1.3.1 常用的文本相关部件 以下的部件以各种格式显示文本,其中有些是文

第一章-Delphi入门(三)(1)

1.2.4.3 汉化界面及字体选取 如果您的Windows95系统中安装了中文系统,对界面做汉化是极其方便的.例如,您可以将Button1的Caption属性改成"&R矩形",同样地可改变其它部件的属性,将窗体做成中文的操作界面. 若对中.西文字体不满意,则可以调整Font属性以满足您的要求.Font属性的前面,有一个小小的"+"号,这说明它表征的是集属性,也即属性不再是一个单值,而是一个属性的集合.双击Font,Object Inspector将在下面扩充

第一章-Delphi入门(三)(5)

常见的组合框初始化用以下的语句可以实现,它用下拉式列表框的第一项来初始化组合框的缺省值: procedure TForm1.ComboBox1Text(Sender:TObject); begin if ComboBox1.Text = ''then ComboBox1.Text := ComboBox1.Items.String[1] ; end; 以上就是文本输入的基本部件. 1.3.2 按钮和检查框部件 1.3.2.1 Button和BitBtn部件 按钮是Windows常用的部件,前文的

第一章-Delphi入门(三)(4)

MaskEdit是格式文本输入对象.它的EditMask属性为它提供了过滤文本的格式.点动这一属性的省略按钮,会弹出过滤编辑对话框,除了Delphi为您提供的几种屏蔽格式,您也可以自己编写,查阅"帮助",会为您提供更详细的用法介绍. Memo是备注框,与以上对象不同的是,它可以接收多行文本输入.将ScrollBars设置成ssVertical,可以为它加上一个垂直的滚行条.Align属性调整该对象在窗口中的对齐情况,有alNone(无对齐指定).alBottom(底部对齐).alCli

第一章-Delphi入门(一)(2)

一些早期的具有OOP性能的程序语言如C++,Pascal,Smalltalk等,虽然具有面向对象的特征,但不能轻松地画出可视化对象,与用户交互能力较差,程序员仍然要编写大量的代码.Delphi的推出,填补了这项空白.您不必自己建立对象,只要在提供的程序框架中加入完成功能的代码,其余的都交给Delphi去做.欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁,Delphi将帮助您轻松地完成.它允许在一个具有真正OOP扩展的可视化编程环境中,使用它的Object Pascal语言.这种革命性的组合,使

第一章-Delphi入门(二)(1)

1.2.3 设计简单的用户界面 首先从空白窗体开始工作.我们将设计一个简单的程序:在屏幕上开一个窗口,窗口中有一个图框,用三个按钮来改变图框的形状:再用一个图标按钮来进行图框的颜色设置,通过颜色编辑对话框来选择变成哪一种颜色. 在菜单上选用File New Application菜单项来生成新的工程文件.这时,屏幕上出现图1.2所示的窗体. 1.2.3.1 选取部件加入到窗体中 部件(Component)是建立Delphi应用程序的要素.Delphi为用户提供了丰富的部件库,既有可视的部件(如编

第一章-Delphi入门(五)(6)

1.5.4 使用工程样板和应用专家 Delphi的工程样板提供预先设计的工程来作为应用程序开发的起点.而应用专家则允许用户按照一定的模式来创建一个应用程序. 1.5.4.1 使用工程样板 当您通过一个工程样板来开始一个工程时,除了空白工程样板外,都会被要求指定一个唯一的子目录即工程目录Project Directory,用来存储新的工程.如果您指定一个不存在的目录,Delphi会帮助您生成它.您可以通过加入新的窗体和程序库单元来修改它,或不加修改地直接利用,而只是加入您的事件处理过程.无论您如何

第一章-Delphi入门(五)(3)

1.5.1.1 创建一个含有About框的例程 作为例子,我们先创建一个含主窗体和简单的About框的应用程序: 在Delphi中创建一个新工程,并为空窗口增加一个Button部件.我们把它作为主窗体,目的是当按动按钮部件时,调出About窗口.下面我们直接进行About窗口的创制. 选用主菜单的File New项,在New页中,选用Form样板,Delphi会自动创建一个空窗体Form2.您可以在其上进行About框的设计,例如加入标签以显示各种信息.加入图片帮助说明等.将Form2的Bord