c++ builder 程序设计实用教程 - 6_1 普通文档窗体设计 - 张晋 - 17xie.htm

已经消失的不易找到的C++ builder网络教程总结

class=SpellE>FileName</SPAN>);<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">存储文件</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; 
</SPAN>}<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">}<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//-----------------------------------------------------------------------<o:p></o:p></SPAN></P>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">在这里就不对以上程序代码做过多的解释了，如果读者有什么不清除的地方，请参看前面几章的有关内容。</SPAN></P>
<H4><SPAN lang=EN-US>4</SPAN><SPAN 
style="FONT-FAMILY: 楷体_GB2312; mso-ascii-font-family: 'Times New Roman'">．响应窗体事件</SPAN></H4>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">在程序设计的过程中，用鼠标左键双击窗体上的空白处，在弹出的代码窗口中选择窗体的</SPAN><SPAN 
class=SpellE><SPAN lang=EN-US>FormCreate</SPAN></SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">事件，并且添加如下所示的响应代码：</SPAN></P>
<P class=a1><SPAN class=GramE><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">void</SPAN></SPAN><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'"> __<SPAN class=SpellE>fastcall</SPAN> 
TForm1::FormCreate(<SPAN class=SpellE>TObject</SPAN> 
*Sender)<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">{<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>FileNewItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;FileNew1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>FileOpenItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;FileOpen1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>FileSaveItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;FileSave1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">关联</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'">File</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">菜单事件</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>CutItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;EditCut1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>CopyItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;EditCopy1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;<SPAN 
class=SpellE>PasteItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;EditPaste1-&gt;<SPAN 
class=SpellE>OnExecute</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">关联</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'">Edit</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">菜单事件</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton0-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>FileNewItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton1-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>FileOpenItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton2-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>FileSaveItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton4-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>CutItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton5-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>CopyItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;ToolButton6-&gt;<SPAN 
class=SpellE>OnClick</SPAN>=Form1-&gt;<SPAN 
class=SpellE>PasteItem</SPAN>-&gt;<SPAN 
class=SpellE>OnClick</SPAN>;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">关联工具栏事件</SPAN><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">}<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//-----------------------------------------------------------------------<o:p></o:p></SPAN></P>
<H4><SPAN lang=EN-US>5</SPAN><SPAN 
style="FONT-FAMILY: 楷体_GB2312; mso-ascii-font-family: 'Times New Roman'">．运行程序</SPAN></H4>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">按照附后的程序清单添加剩余的程序代码。做完以上的工作后，存储文件，按键盘上的功能键</SPAN><SPAN 
lang=EN-US>F9</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">运行程序。在程序运行的过程中，用户即可以通过菜单来进行各种文件操作，如新建一个文本文件、打开文本文件和存储文件等，也可以进行剪切、复制和粘贴等编辑操作，当然还可以通过工具栏上快捷按钮直接进行操作。程序运行结果如图</SPAN><SPAN 
lang=EN-US>6-5</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">所示。</SPAN></P>
<P class=a><SPAN lang=EN-US><IMG height=219 
src="C++ Builder 程序设计实用教程 - 6_1 普通文档窗体设计 - 张晋 - 17xie.files/9cff922824.jpg" 
width=278 v:shapes="_x0000_i1029"></SPAN></P>
<P class=MsoCaption><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">图</SPAN><SPAN 
lang=EN-US>6-5<SPAN style="mso-spacerun: yes">&nbsp; </SPAN></SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">程序运行结果</SPAN></P>
<P class=MsoNormalIndent><SPAN lang=EN-US>SDI</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">程序设计的完整代码如下所示：</SPAN></P>
<DIV 
style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 0cm; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 0cm; PADDING-BOTTOM: 1pt; BORDER-LEFT: windowtext 1pt solid; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; mso-element: para-border-div">
<P class=a0 
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; PADDING-BOTTOM: 0cm; BORDER-LEFT: medium none; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 1.0pt 0cm"><SPAN 
style="FONT-FAMILY: 仿宋_GB2312; mso-ascii-font-family: 'Times New Roman'">程序清单</SPAN><SPAN 
lang=EN-US 
style="FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt"><o:p></o:p></SPAN></P></DIV>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//-----------------------------------------------------------------------<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">#include 
&lt;<SPAN class=SpellE>vcl.h</SPAN>&gt;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">#<SPAN 
class=SpellE>pragma</SPAN> <SPAN 
class=SpellE>hdrstop</SPAN><o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'"><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">#include 
"<SPAN class=SpellE>SDI.h</SPAN>"<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//---------------------------------------------------------------------------<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">#<SPAN 
class=SpellE>pragma</SPAN> <SPAN class=GramE>package(</SPAN><SPAN 
class=SpellE>smart_init</SPAN>)<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">#<SPAN 
class=SpellE>pragma</SPAN> resource "*.<SPAN 
class=SpellE>dfm</SPAN>"<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">TForm1 
*Form1;<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//-----------------------------------------------------------------------<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">__<SPAN 
class=SpellE>fastcall</SPAN> TForm1::<SPAN class=GramE>TForm1(</SPAN><SPAN 
class=SpellE>TComponent</SPAN>* Owner)<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>: 
<SPAN class=SpellE><SPAN class=GramE>TForm</SPAN></SPAN><SPAN 
class=GramE>(</SPAN>Owner)<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">{<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">}<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">//-----------------------------------------------------------------------<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'"><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN class=GramE><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">void</SPAN></SPAN><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'"> __<SPAN class=SpellE>fastcall</SPAN> 
TForm1::FileNew1Execute(<SPAN class=SpellE>TObject</SPAN> 
*Sender)<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">{<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">Form1-&gt;Memo1-&gt;<SPAN 
class=GramE>Clear(</SPAN>);<o:p></o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US