📄 chapt4.htm
字号:
<html><head><title>第四章 Delphi程序设计基本步骤</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#00000" text="#00cc66"><p align="center"><b><font size="4" color="#FF6666">第四章 Delphi程序设计基本步骤 </font></b></p><p><b> 4.2 设 计 窗 体</b><br> 以下分别介绍一些重要的窗体特性的设置：<br> （1）Action。指定与菜单项相关的行为对象。可以在设计阶段使用行为列表编辑器指定行为对象与菜单项的关系。<br> （2）ActiveControl。ActiveControl是一个下拉框，该特性决定，当窗体被初次打开时，窗体中的哪个控制是焦点。在一个应用程序中，在给定的时间只能有一个控制具有输入焦点。例如，假设窗体上有两个按钮Button1，Button2，则下拉框有Button1,Button2两项，你可以选择Button1作为输入焦点,也可将Button2作为焦点。<br> （3）Anchors。定义窗体与父窗体的位置关系。当父窗体的位置发生改变时，窗体的位置也随之改变。<br> （4）AutoScroll。这个特性用在可重新改变尺寸的窗口中。当AutoScroll被设置为TRUE，并且用户重新改变窗体的尺寸而截去一个构件时，窗体自动显示滚动条。在一个MDI应用程序中，用户把一个子窗口移出主窗口时，也会自动显示滚动条。<br> （5）Border Icons。BorderIcons特性决定窗体运行时显示哪些图标，包括biSystemMenu(控制菜单)、biMinimize(极小化)、biMaximize（极大化）、biHelp(帮助)。biHelp主要用于弹出窗口。除biHelp外，对于普通窗体，所有这些图标都应保留。只有在特殊情况下才应关掉控制菜单；没有时，用户会感到不习惯并希望它存在。BorderIcons特性是一个嵌套特性，为了在这个特性内设置各个图标，可单击Object Inspector中BorderIcons左边的＋号。＋号变成－号，各个图标就会显示其特性。<br> （6）Border Styles。该特性是一个下拉列表框，决定窗体的边框风格。设计窗体时，一般选择一种边框风格，也可以在运行时设置BorderStyle特性。<br> （7）Caption。该特性设置窗体的标题，其缺省是窗体的名称。设计窗体时，你可以根据需要来设置。<br> （8）ClientHeight和ClientWidth。这两个特性以像素为单位确定一个窗体的客户区域。你可以根据需要设置窗体的实际屏幕尺寸长，以使窗体合理地显示屏幕上的信息。<br> （9）Color。该特性设置窗体的背景颜色。Object Inspector提供一个有许多预先定义颜色的下拉式列表，你可以根据需要设置。<br> （10）Cursor。 该特性选择出现程序运行时光标经过窗体时光标的形状。一般将这个特性设置为crDefault，在运行时改变为其它形状。例如，开始一项需要用户等待的操作时，可将光标变成一个计时沙漏。<br> （11）DefaultMonitor。指定窗体的监视器。用于使用多监视器的程序。<br> （12）DockSite。决定窗体是否作为拖放操作的目标。<br> （13）Enabled。该特性使用户可以使窗体有效或无效。一个无效的窗体不响应诸如鼠标器按钮、计时器事件，或击键等事件。当希望用户不影响一个选定窗口时，运行期间可使用这个特性。<br> （14）Font。该特性设置窗体的字体。由于窗体内没有文本（标题条不受Font特性的影响），所以该特性几乎不影响窗体本身，但是，由于许多构件都有ParentFont特性，当ParentFont特性设置为真时，一个构件的字体使用父窗口字体的特性。将窗体所有构件的ParentFont特性设置为真，这样改变窗体的Font特性，就可以有效地改变所有构件的字体特性。<br> （15）FormStyle。该特性设置窗体的风格。窗体可能的风格为fsNormal，fsMDIChild，fsMDIForm，fsStayOnTop。缺省值为fsNormal。fsNorma设置窗体风格既不是MDI父窗口，也不是MDI子窗口；fsMDIChild设置窗口为MDI子窗口；fsMDIForm设置窗体为MDI父窗口；fsStayOnTop设置窗体为窗口运行时始终在其它窗口的上面，除非还有其它窗口设置为fsStayOnTop。注意，窗体风格最好在窗体设计阶段就设置好。<br> （16）HelpContext。该特性设置窗体帮助上下文。 大多数Windows 程序都包含上下文相关帮助。用户的应用程序中也应包含上下文相关帮助。当创建一个帮助系统时应用程序的每个窗体在帮助系统中应是不同标题。把一个给定窗体的标题号放在窗体的HelpContext特性中，当窗体收到一个帮助事件时，就启动帮助系统，并显示该特定标题。如果应用程序不提供帮助，可设置HelpContext特性为０。<br> （17）HorzScrollBar和VerScrollBar。这两个特性使用户手动控制窗体的滚动条。通常应该把AutoScroll特性设置为真，滚动条被自动地处理。要先手动显示滚动条时必须设置滚动条的嵌套Visible特性为真，并把嵌套Range特性设置成一个比ClientHeight或ClientWidth大的数。<br> （18）Icon。该特性指定应用程序极小化时显示的图标。<br> （19）KeyPreview。当KeyPreview特性设置为真时，某些键盘事件(OnKeyDown，OnKeyUp，及OnKeyPress等)首先被送至窗体，然后发送至具有焦点的构件。当KeyPreview设置为假时，键盘事件只传送给具有焦点的构件。 该特性省去了许多处理某些击键事件的冗余代码。例如，当用户只想为窗体提供帮助，而不想为窗体中的每个构件都提供帮助时，设置KeyPreview特性为真。当用户按F1时，而启动窗体的帮助系统。<br> （20）Left和Top。窗体的Left和Top特性决定窗体打开时的位置。Left和Top特性的单位是像素。可以在Object Inspector中直接输入这些特性，也可以用鼠标移动窗体定位。在设计移动窗体时，Delphi自动更新Left和Top特性。<br> （21）Menu。当设置一个简单的应用程序时，窗体可能只包括一个MainMenu构件。对于较复杂的应用程序，窗体可能会有不止一个菜单。使用窗体的Menu特性指定显示哪一个MainMenu构件。Delphi自动把窗体的Menu特性设置为第一个放在窗体的MainMenu构件。当出现多个菜单时，可使用Menu特性的下拉式列表选择适当的构件。<br> （22）Name。与所有的Delphi构件一样，Form构件有一个Name特性。当第一次创建窗体时，Name特性设置成Form1。鉴于在代码中经常使用这个名字，最好在编写代码之前，将名字改为与所描述的窗体更贴切的名字。<br> （23）OldCreateOrder。指定OnCreate和 OnDestroy事件发生的时间。当OldCreateOrder值为False（缺省）时，OnCreate事件发生在窗体上所有构件的构造函数完成之后，OnDestroy事件发生在任何析构函数调用之前。<br> （24）PixelsPerInch和Scaled。通过设置窗体的PiwelsPerInch特性为一个不是缺省值的值，并将Scaled特性设置为真时，可以有效地扩大或缩小窗体的尺寸。这在以一种屏幕分辨率进行设计而在另一种屏幕分辨率中使用的应用程序是有用的。增大PixelsPerInch特性，窗体减小；减少PixelsPerInch特性，窗体增大。如果窗体中有Tlmage构件，应把这种构件的Stretch特性设置为真，这样构件就会随窗体的改变而变化。为了在运行时改变窗体的放大率，可使用ScaleBy的过程。<br> （25）PopUpMenu。为创建窗体的加速菜单，在窗体中放入一个TPopUpMenu构件。将窗体的PopUpMenu特性设置为TPopUpMenu构件的名称。当用户右击窗体时，便显示该弹出式菜单。使用弹出式菜单使程序具有与用户更友好的界面。<br> （26）Position。在设计期间用户可以指定窗体的准确位置和尺寸，同时Delphi提供的Position特性自动地在运行时放好窗体。<br> （27）UseDockManager。决定停泊管理器(dock manager)是否用于拖放操作中。<br> （28）Visible。 确定一个窗体是否可见。当创建一个多窗体应用程序时，有时出现一些窗体，该窗体是不想看到的，一直到某个行为发生为止，例如，如果程序中有一个About框，直到用户打开帮助菜单并选择About项时，不会向用户显示about框。为了在运行时控制一个窗体是否可见，可设置其Visible特性。缺省时，所有窗体的Visible特性设置为假。注意，Visible特性不影响程序的主窗体，它的可见性与Visible设置无关。<br> （29）WindowMenu。大多数MDI应用有一个叫做Window的菜单。此菜单是诸如Arrange All和Cascade等选项，加上一个所有子窗口的目录。当用户从菜单中选择一个子窗口时该窗口获得输入焦点。Delphi中WindowMenu特性自动生成子窗口目录。简单地把窗体WindowMenu特性设置为菜单中已经存在的TMenuItem构件，子窗口目录就被加入到这个TMenuItem构件中。<br> （30）WindowState。该特性控制窗口运行时是极小化，极大化，还是正常状态。在本例中，我们仅需要修改Name特性和Position特性。将Name设置为Example，Position设置为poScreenCenter。另外调整窗体大小，使其符合要求。这样，窗体名该为Example，使程序运行时显示在屏幕中央。<br> 在File菜单中选择Save Project As命令，Delphi将要求用户输入与窗体有关的单元文件名及项目文件名。这里我们输入单元文件名为ExpUnit.PAs及项目文件名ExpPro.DPR。注意，在输入文件名时，单元文件名、项目文件名及窗体名不能相同。<br> Delphi提供了对齐对话框，使用对齐对话框有时更为方便。<br> 其操作步骤是：<br> （1）选择构件。如果选择一个构件，单击该构件即可；如果选择多个构件，请先选择一个构件，然后按住Shift键，继续选择其它构件，直到多个构件都选择完毕，才放开Shift键。<br> （2）选择Edit菜单中Align命令，或右击鼠标，选择弹出式菜单中的Align命令。对齐对话框显示如图4.5所示。<br> （3）根据需要在对话框中选择对齐选项。<br> （4）选择OK按钮，执行对齐操作，同时退出对话框。 <br> 要锁定构件位置，只要选择Edit菜单的Lock Control命令。 <br> 为了快速定位特性字段，可以使用TAB键加特性字段的首字母。如在修改Button1构件的特性时，要定位到Width特性字段，可以按TAB+W直接定位到Width字段，然后再按TAB将光标移到Value列。如果只按TAB键，则光标在特性名与特性值列之间移动。<br> 为了显示编译进度和结果，可以选择Tools菜单中Environment Options命令，在对话框中选择Preferences页，从中选择Show Compile Progress（显示编译进度）选项<br> <b>4.7 单 元 结 构</b><br> 下面对本单元的主要部分进行简单的介绍：<br> （1）unit：unit头部分标志下面的代码是一个单元，后面紧跟的是单元的文件，其扩展名是.Pas。<br> （2）interface：interface标志单元接口部分的开始，单元接口部分定义变量、类型、过程等，是其它单元或程序其它部分可以访问的部分。单元接口部分结束于Implement部分的开始。<br> （3）uses：uses语句告诉程序最终的执行代码中需要哪个函数和过程。Delphi会自动把一些必须的单元包括进来，例如本程序的Windows, Messages, SysUtils等。对于你自己书写的单元，如果程序中使用了该单元的函数或代码，也需要包括在uses部分中。<br> （4）type：这部分用来定义用户定义的类型，然后就可以定义使用该类型的变量。<br> （5）var：这部分用来定义变量和对象变量。在本窗体单元中，Interface部分使用var把窗体Example定义为一个TExample对象的实例。var也用来定义其它Implement部分的变量、过程、函数等。<br> （6）Implement:这部分定义所有在interface部分说明过的函数、过程。实际上，Implement部分也可以定义变量、过程、函数等，但只能被本单元局部访问；也可以在这部分增加一个uses语句，来访问其它单元。<br> （7）{$R *.DFM}:该语句把单元连接到窗体的.dfm文件。不要删除这条语句，否则会发生编译错误。<br> 接下来的是两个过程语句，我们知道，SetButtonClick为单击SetButton按钮时的处理过程，FontButtonClick为单击FontButton按钮时的处理过程。<br> 最后，用一个end加一个英文句号(.)来标志程序的结束。<br> 在本单元中，省略了单元的initialization部分和finalization部分，它们是：<br> initialization：这部分在单元运行前执行，用于单元代码的初始化、分配空间等。<br> finalization：这部分在单元退出运行前执行，用于释放单元占用的空间、变量等。<br> 实际上，在一个完整的单元文件里，可以用这两部分来完成单元的初始化及空间变量的释放等工作。 </p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -