📄 003.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="004.htm"><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR>
<A HREF="002.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.2.4.3 <font face="宋体" lang="ZH-CN">汉化界面及字体选取 </p>
</font><p><font face="宋体" lang="ZH-CN">
如果您的</font>Windows95<font face="宋体" lang="ZH-CN">系统中安装了中文系统，对界面做汉化是极其方便的。例如，您可以将</font>Button1<font
face="宋体" lang="ZH-CN">的</font>Caption<font face="宋体" lang="ZH-CN">属性改成“</font>&R<font
face="宋体" lang="ZH-CN">矩形”，同样地可改变其它部件的属性，将窗体做成中文的操作界面。</font></p>
<p><font face="宋体" lang="ZH-CN">
若对中、西文字体不满意，则可以调整</font>Font<font face="宋体"
lang="ZH-CN">属性以满足您的要求。</font>Font<font face="宋体" lang="ZH-CN">属性的前面，有一个小小的“</font>+<font
face="宋体" lang="ZH-CN">”号，这说明它表征的是集属性，也即属性不再是一个单值，而是一个属性的集合。双击</font>Font<font
face="宋体" lang="ZH-CN">，</font>Object Inspector<font face="宋体" lang="ZH-CN">将在下面扩充显示它的其它属性。</font>Color<font
face="宋体" lang="ZH-CN">用来表示文本的颜色，</font>Name<font face="宋体"
lang="ZH-CN">定义了字体名，如</font>System,MsSerif,Arial,<font face="宋体"
lang="ZH-CN">宋体，黑体等。</font>Style<font face="宋体" lang="ZH-CN">下又拥有四个属性：</font>fsBold,fsItalic,fsUnderline<font
face="宋体" lang="ZH-CN">和</font>fsTrikeOut<font face="宋体" lang="ZH-CN">。如果想让字体有其中的某种风格，可把相应的属性值设成</font>True<font
face="宋体" lang="ZH-CN">。</font></p>
<p> Font<font face="宋体"
lang="ZH-CN">对话框可以更为直接地设定以上属性。</font>Font<font
face="宋体" lang="ZH-CN">属性右侧值段有带省略号的按钮，单击它可以激活</font>Font<font
face="宋体" lang="ZH-CN">对话框，如图</font>1.7<font face="宋体" lang="ZH-CN">所示：</font></p>
<p><font face="宋体" lang="ZH-CN">
这一对话框中包含了上述的全部属性，使得调整字形更为直接方便。但要申明的是，对于窗体</font>Form<font
face="宋体" lang="ZH-CN">来讲，</font>Font<font face="宋体" lang="ZH-CN">属性改变的是窗体中其它部件的显示字形，它本身的标题字体是缺省的</font>System<font
face="宋体" lang="ZH-CN">字体，不能通过属性来改变。</font></p>
<p>1.2.4.4<font face="宋体" lang="ZH-CN">使用图形编辑对话框 </p>
</font><p><font face="宋体" lang="ZH-CN">
最后，我们用图标按钮</font>BitBtn1<font face="宋体" lang="ZH-CN">来控制</font>Shape<font
face="宋体" lang="ZH-CN">部件的颜色。选中图标按钮，将它的</font>Caption<font
face="宋体" lang="ZH-CN">属性改为“</font>&Color<font face="宋体"
lang="ZH-CN">”</font>(<font face="宋体" lang="ZH-CN">或“</font>&C<font
face="宋体" lang="ZH-CN">颜色”</font>)<font face="宋体" lang="ZH-CN">。可以在按钮中加入一个图标来形象地表述它的功能。选用</font>Object
Inspector<font face="宋体" lang="ZH-CN">中的</font>Glyph<font face="宋体"
lang="ZH-CN">属性，点动值段的三点按钮，弹出图形编辑对话框。</font></p>
<p><font face="宋体" lang="ZH-CN">
您可以通过图形编辑对话框装入图标，在本例程中，按动</font>Load<font
face="宋体" lang="ZH-CN">按钮，选择\</font>Delphi 2.0\Images\Buttons\Brush.bmp<font
face="宋体" lang="ZH-CN">文件装入，</font>Bitbtn1<font face="宋体" lang="ZH-CN">就成为一个图标按钮。另外，</font>Delphi<font
face="宋体" lang="ZH-CN">还为您提供了丰富的</font>Windows<font face="宋体"
lang="ZH-CN">标准图标按钮。想运用它们，改变</font>BitBtn<font face="宋体"
lang="ZH-CN">的</font>Kind<font face="宋体" lang="ZH-CN">属性。用户不妨尝试一下，选择其它值可以生成漂亮的标准按钮，如</font>OK,Cancel<font
face="宋体" lang="ZH-CN">等等。这会使您在以后的程序开发中受益匪浅。</font></p>
<p><font face="宋体" lang="ZH-CN">至此，界面的设计工作就已完成了。运行一下观察效果，别忘记保存您的库单元文件、工程文件。 </p>
</font><p>1.2.5 <font face="宋体" lang="ZH-CN">编写事件处理过程 </p>
</font><p><font face="宋体" lang="ZH-CN">
完成用户界面，只是建立了一个“骨架”，下面要做的便是给程序加入“灵魂”，也即，使它能够完成所要求的功能。 </p>
</font><p>1.2.5.1 <font face="宋体" lang="ZH-CN">为用户操作建立“事件”</font></p>
<p><font face="宋体" lang="ZH-CN">
单击窗体上的“</font>Rectangle<font face="宋体" lang="ZH-CN">”按钮，在</font>Object
Inspector<font face="宋体" lang="ZH-CN">中，点动“</font>Events<font face="宋体"
lang="ZH-CN">”页标签，出现事件窗口。在本例程中，我们只关心</font>OnClick<font
face="宋体" lang="ZH-CN">事件，即按钮接收到左键单击时应用程序所作出的反应。在</font>Object
Inspector<font face="宋体" lang="ZH-CN">窗口中双击</font>OnClick<font face="宋体"
lang="ZH-CN">事件右端的值段，会使得</font>Delphi<font face="宋体"
lang="ZH-CN">激活库代码编辑器，并将光标停在该按钮所对应的过程的</font>begin...end<font
face="宋体" lang="ZH-CN">之间。“</font>Rectangle<font face="宋体" lang="ZH-CN">”按钮的功能是使</font>Shape<font
face="宋体" lang="ZH-CN">部件的形状为矩形。联系前文我们查看过的</font>Shape<font
face="宋体" lang="ZH-CN">部件的“</font>Shape<font face="宋体" lang="ZH-CN">”属性，现在，我们要做的是在程序中控制部件的属性。</font></p>
<p><font face="宋体" lang="ZH-CN">
在光标处键入以下的程序段： </p>
<p> </font>Shape1.Shape := stRectangle; </p>
<p><font face="宋体" lang="ZH-CN">
用同样的方法，在</font>Button2<font face="宋体" lang="ZH-CN">和</font>Button3<font
face="宋体" lang="ZH-CN">的</font>OnClick<font face="宋体" lang="ZH-CN">事件响应内复制以上语句，并分别将赋值号后的属性值改为</font>stRoundRect<font
face="宋体" lang="ZH-CN">和</font>stEllipse<font face="宋体" lang="ZH-CN">。为防止输入错误导致程序运行出错，建议您使</font>Shape1<font
face="宋体" lang="ZH-CN">部件的</font>Object Inspector<font face="宋体"
lang="ZH-CN">可见，检视属性</font>Shape<font face="宋体" lang="ZH-CN">的各个值并对应输入。</p>
<p> 在代码编辑器中，</font>Delphi<font face="宋体" lang="ZH-CN">自动建立的过程以关键字</font>Procedure<font
face="宋体" lang="ZH-CN">开头，用户可以在</font>begin<font face="宋体"
lang="ZH-CN">…</font>end<font face="宋体" lang="ZH-CN">之间加入自己的程序，也可以定义变量。这个程序块对用户的外部事件</font>(<font
face="宋体" lang="ZH-CN">此例中是按动按钮</font>)<font face="宋体"
lang="ZH-CN">进行响应。我们称之为事件处理过程。 </p>
</font><p>1.2.5.2 <font face="宋体" lang="ZH-CN">使用颜色编辑对话框 </p>
</font><p><font face="宋体" lang="ZH-CN">
图标按钮“</font>Color<font face="宋体" lang="ZH-CN">”要控制部件</font>Shape1<font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -