📄 005.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基础教程-->第一章 Delphi快速入门（五）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基础教程 第一章 Delphi快速入门（五）">
<META NAME="description" CONTENT=" - DELPHI基础教程 - 第一章 Delphi快速入门（五）">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" bgcolor="#e0e0e0"><strong><A HREF="006.htm"><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR>
<A HREF="004.htm"><FONT style="FONT-SIZE: 9pt">前一页</font></A><BR>
<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目录</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首页</font></A><BR>
</strong>
</TD>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">第一章 Delphi快速入门（五）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>1.4.3.1 <font face="宋体" lang="ZH-CN">调用标准对话框 </p>
</font><p><font face="宋体" lang="ZH-CN">
您可以发现，除了</font>Font,Find,Replace<font face="宋体" lang="ZH-CN">对话框之外，其余标准对话框的</font>Events<font
face="宋体" lang="ZH-CN">页都是空白的。因为它们本身是不可视的对话框形式，所以不能响应标准的鼠标键盘操作，只能在程序中调用它们。在本章第一节的</font>Demo<font
face="宋体" lang="ZH-CN">程序中，我们已经对用</font>Color<font face="宋体"
lang="ZH-CN">对话框有了了解，在程序的适当位置加入对话框所属的</font>Execute<font
face="宋体" lang="ZH-CN">方法，可以执行标准对话框。</font></p>
<p><font face="宋体" lang="ZH-CN">
在编制应用程序时，您可以先设计好主菜单。在需要使用标准对话框的菜单项的事件处理过程中，调用标准对话框的</font>Execute<font
face="宋体" lang="ZH-CN">等方法，以满足设计需求，即响应菜单命令弹出标准对话框。 </font></p>
<p>1.4.3.2 OpenDialog<font face="宋体" lang="ZH-CN">和</font>SaveDialog<font
face="宋体" lang="ZH-CN">部件 </p>
</font><p> OpenDialog(<font face="宋体"
lang="ZH-CN">文件的打开</font>)<font face="宋体" lang="ZH-CN">和</font>SaveDialog(<font
face="宋体" lang="ZH-CN">保存对话框</font>)<font face="宋体" lang="ZH-CN">部件处理文件的打开与存储，它们拥有完全相同的属性域。</font>DefaultExt<font
face="宋体" lang="ZH-CN">属性表示缺省扩展名。当用户没有输入文件的后缀时，可以为用户文件自动加扩展名。</font>FileName<font
face="宋体" lang="ZH-CN">属性指定出现在</font>FileName<font face="宋体"
lang="ZH-CN">正文框中的缺省文件名。</font>Filter<font face="宋体"
lang="ZH-CN">属性提供了文件过滤器。</font>FileEditStyle<font face="宋体"
lang="ZH-CN">决定在输入文件名时用</font>Edit<font face="宋体" lang="ZH-CN">还是</font>Combo-
Box<font face="宋体" lang="ZH-CN">；设置为</font>fsComboBox<font face="宋体"
lang="ZH-CN">时，允许使用历史列表</font>HistoryList<font face="宋体"
lang="ZH-CN">属性，这在应用程序需要经常选择文件时，可以节约大量的时间。</font>HistoryList<font
face="宋体" lang="ZH-CN">属性保存有在</font>File Name<font face="宋体"
lang="ZH-CN">下拉式编辑框中显示的文件名，使用</font>[TStrings]<font
face="宋体" lang="ZH-CN">的省略按钮可以编辑历史列表。您也可以编程实现将</font>HistoryList<font
face="宋体" lang="ZH-CN">属性设为以前用</font>OpenDialog<font face="宋体"
lang="ZH-CN">打开的文件名历史列表。下列程序段可以实现自动历史文件名加载： </p>
</font><p>if OpenDialog1.Execute then</p>
<p>OpenDialog1.HistoryList.Insert(0,OpenDialog1.FileName); </p>
<p>1.4.3.3 ColorDialog<font face="宋体" lang="ZH-CN">和</font>FontDialog </p>
<p><font face="宋体" lang="ZH-CN"> 颜色对话框</font>ColorDialog<font
face="宋体" lang="ZH-CN">我们在前文的例程中已经用过，其更详细的功能如</font>Options<font
face="宋体" lang="ZH-CN">的设定请查阅在线帮助。</font></p>
<p><font face="宋体" lang="ZH-CN"> 字体对话框</font>Font<font
face="宋体" lang="ZH-CN">可以帮助用户获取各种方式的字体。使用</font>OnApply<font
face="宋体" lang="ZH-CN">事件，可以使得</font>Font<font face="宋体"
lang="ZH-CN">对话框中包含一个</font>Apply<font face="宋体" lang="ZH-CN">按钮，按动它，对话框中设定的字体会立即应用到指定的对象中，而对话框仍然是打开的，这样更便于观察修改的结果。</font></p>
<p><font face="宋体" lang="ZH-CN">
以下的例程在窗体中先放置一个按钮</font>Button1<font face="宋体"
lang="ZH-CN">，调用字体对话框来改变按钮上的</font>Caption<font
face="宋体" lang="ZH-CN">属性显示的字体： </p>
</font><p>Procedure TForm1.Button1Click(Sender:TObject);</p>
<p>begin</p>
<p>FontDialog1.Execute; </p>
<p>end; </p>
<p>Procedure TForm1.FontDlgApply(Sender:Tobject);</p>
<p>begin</p>
<p>Button1.Font:= FontDialog1.Font;</p>
<p>end; </p>
<p>1.4.3.4 PrintDialog<font face="宋体" lang="ZH-CN">和</font>PrintSetupDiaog </p>
<p><font face="宋体" lang="ZH-CN"> 打印对话框</font>PrintDialog<font
face="宋体" lang="ZH-CN">和打印设置对话框</font>PrintSetupDialog<font
face="宋体" lang="ZH-CN">可以显示标准打印、打印设置对话框，支持打印文件和打印设置功能，设置它的</font>Options<font
face="宋体" lang="ZH-CN">属性可以规定对话框的表现形式 </p>
</font><p>1.4.3.5 FindDialog<font face="宋体" lang="ZH-CN">和</font>ReplaceDialog </p>
<p> FindDialog<font face="宋体" lang="ZH-CN">和</font>ReplaceDialog<font
face="宋体" lang="ZH-CN">提供了查找、替换两个对话框部件，对于寻找和替换文本是极其有用的。在</font>FindDialog<font
face="宋体" lang="ZH-CN">和</font>ReplaceDialog<font face="宋体" lang="ZH-CN">中都有</font>OnFind<font
face="宋体" lang="ZH-CN">事件，当用户单击寻找对话框中的</font>Find Next<font
face="宋体" lang="ZH-CN">按钮时将触发这一事件。</font>FindText<font
face="宋体" lang="ZH-CN">属性中保存了用户在</font>Find What<font face="宋体"
lang="ZH-CN">编辑框中输入的文本。在</font>ReplaceDialog<font face="宋体"
lang="ZH-CN">中还有</font>OnReplace<font face="宋体" lang="ZH-CN">事件，当用户单击替换对话框中的</font>Replace<font
face="宋体" lang="ZH-CN">和</font>Replace All<font face="宋体" lang="ZH-CN">按钮时，将触发</font>OnReplace<font
face="宋体" lang="ZH-CN">事件。</font>FindText<font face="宋体" lang="ZH-CN">和</font>ReplaceText<font
face="宋体" lang="ZH-CN">属性分别保存了用户在</font>Find What<font
face="宋体" lang="ZH-CN">和</font>Replace With<font face="宋体" lang="ZH-CN">编辑框中输入的文本。 </p>
</font><p>1.5 <font face="宋体" lang="ZH-CN">使用</font>Delphi<font face="宋体"
lang="ZH-CN">的工程管理、设计工具 </p>
</font><p> Delphi 2.0<font face="宋体" lang="ZH-CN">是完备的工程设计系统，除提供了大量的可视化编程部件和简单方便的设计方法外，还备有功能强大的工程管理、窗口设计工具。 </p>
</font><p>1.5.1 <font face="宋体" lang="ZH-CN">创建多窗体工程项目 </p>
</font><p><font face="宋体" lang="ZH-CN">
绝大多数的应用程序都用到不只一个窗口，</font>Delphi<font face="宋体"
lang="ZH-CN">允许用户创建多文档界面</font>(MDI)<font face="宋体" lang="ZH-CN">应用程序。应用自动创建窗体、窗体样板、对话框专家、应用专家等，可以使得创建应用程序更为方便快捷，而且可重复利用，大大地降低了工作量。 </p>
</font><p>1.5.1.1 <font face="宋体" lang="ZH-CN">创建一个含有</font>About<font
face="宋体" lang="ZH-CN">框的例程 </p>
</font><p><font face="宋体" lang="ZH-CN">
作为例子，我们先创建一个含主窗体和简单的</font>About<font
face="宋体" lang="ZH-CN">框的应用程序：</font></p>
<p><font face="宋体" lang="ZH-CN"> 在</font>Delphi<font
face="宋体" lang="ZH-CN">中创建一个新工程，并为空窗口增加一个</font>Button<font
face="宋体" lang="ZH-CN">部件。我们把它作为主窗体，目的是当按动按钮部件时，调出</font>About<font
face="宋体" lang="ZH-CN">窗口。下面我们直接进行</font>About<font
face="宋体" lang="ZH-CN">窗口的创制。</font></p>
<p><font face="宋体" lang="ZH-CN"> 选用主菜单的</font>File|New<font
face="宋体" lang="ZH-CN">项，在</font>New<font face="宋体" lang="ZH-CN">页中，选用</font>Form<font
face="宋体" lang="ZH-CN">样板，</font>Delphi<font face="宋体" lang="ZH-CN">会自动创建一个空窗体</font>Form2<font
face="宋体" lang="ZH-CN">。您可以在其上进行</font>About<font face="宋体"
lang="ZH-CN">框的设计，例如加入标签以显示各种信息、加入图片帮助说明等。将</font>Form2<font
face="宋体" lang="ZH-CN">的</font>BorderStyle<font face="宋体" lang="ZH-CN">属性设置为</font>bsDialog<font
face="宋体" lang="ZH-CN">，则窗口成为运行时不能改变大小的对话框。</font></p>
<p><font face="宋体" lang="ZH-CN">
下面编程实现主窗体对</font>About<font face="宋体" lang="ZH-CN">框的显示控制。很可能在设计时，两个窗体出现重叠，</font>Form1<font
face="宋体" lang="ZH-CN">被</font>About<font face="宋体" lang="ZH-CN">遮住。用</font>Shift+F12<font
face="宋体" lang="ZH-CN">产生</font>View Form<font face="宋体" lang="ZH-CN">对话框，可以选择窗口的名字，调出所需的窗体</font>Form1<font
face="宋体" lang="ZH-CN">，双击其上的按钮部件，在事件处理过程加入以下的程序： </p>
</font><p>procedure TForm1.Button1Click(Sender: TObject); </p>
<p>begin</p>
<p>Form2.Show;</p>
<p>end; </p>
<p><font face="宋体" lang="ZH-CN"> 由于</font>Form1<font
face="宋体" lang="ZH-CN">窗体调用</font>About<font face="宋体" lang="ZH-CN">窗体，所以必须在</font>Form1<font
face="宋体" lang="ZH-CN">的库单元程序中对引用</font>About<font face="宋体"
lang="ZH-CN">进行说明。在</font>Unit1<font face="宋体" lang="ZH-CN">的</font>Uses<font
face="宋体" lang="ZH-CN">后面加入</font>About<font face="宋体" lang="ZH-CN">的库单元名</font>Unit2<font
face="宋体" lang="ZH-CN">。运行程序，在主窗体上按动按钮，可以出现</font>About<font
face="宋体" lang="ZH-CN">框。在框外单击鼠标，会回到主窗体中。</font></p>
<p><font face="宋体" lang="ZH-CN"> 在</font>About<font
face="宋体" lang="ZH-CN">窗体中加入一个按钮，并将按钮的</font>ModalResult<font
face="宋体" lang="ZH-CN">属性设置为</font>mrOK<font face="宋体" lang="ZH-CN">，同时将按钮的标签的</font>Caption<font
face="宋体" lang="ZH-CN">改为</font>OK<font face="宋体" lang="ZH-CN">。这样一个有模式的</font>About<font
face="宋体" lang="ZH-CN">框已经建成了。将窗体</font>Form1<font face="宋体"
lang="ZH-CN">中</font>Button1<font face="宋体" lang="ZH-CN">的</font>OnClick<font
face="宋体" lang="ZH-CN">处理过程的代码改变如下： </p>
</font><p>Form2.ShowModal; </p>
<p><font face="宋体" lang="ZH-CN">
再运行程序，除了与上述功能相同显示</font>About<font face="宋体"
lang="ZH-CN">对话框外，该程序只有当用户按动</font>About<font face="宋体"
lang="ZH-CN">框的按钮或被</font>About<font face="宋体" lang="ZH-CN">窗控制图标关闭窗口后，才会回到主窗体中，而不能与第一个窗体发生交互行为。这就是方法</font>Show<font
face="宋体" lang="ZH-CN">和</font>ShowModal<font face="宋体" lang="ZH-CN">的主要不同之处。 </p>
</font><p>1.5.1.2 <font face="宋体" lang="ZH-CN">指定自动创建窗体 </p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -