c++ builder 程序设计实用教程 - 9_1_4 建立自己的剪贴板观察程序 - 张晋 - 17xie.htm

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

style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;OpenDialog1-&gt;InitialDir="c:\\pwin98\\";<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><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><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;OpenDialog1-&gt;Filter="</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'">(*.txt)|*.txt";<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><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><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;OpenPictureDialog1-&gt;Title="</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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><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><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;OpenPictureDialog1-&gt;InitialDir="c:\\pwin98\\";<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><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><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;OpenPictureDialog1-&gt;Filter="</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'">(*.bmp)|*.bmp";<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><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><SPAN 
lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">}<o:p></o:p></SPAN></P>
<P class=a3><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>
<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>FormCreate()</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">事件中的语句</SPAN><SPAN 
lang=EN-US>Clipboard-&gt;Clear; </SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">用来清除剪贴板上的数据，然后通过五条语句：</SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button1-&gt;Enabled=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button2-&gt;Enabled=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button3-&gt;Enabled=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button4-&gt;Enabled=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button5-&gt;Enabled=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Button6-&gt;Enabled=true;<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>3</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></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">void 
__fastcall TForm1::Button1Click(TObject *Sender)<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">{<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp; </SPAN>if 
(Clipboard()-&gt;HasFormat(CF_TEXT))<o:p></o:p></SPAN></P>
<P class=a3><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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>{<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; 
</SPAN>Form1-&gt;RichEdit1-&gt;Visible=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; 
</SPAN>Form1-&gt;BitBtn1-&gt;Visible=false;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>RichEdit1-&gt;Text = 
Clipboard()-&gt;AsText;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>}<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp; </SPAN>else if 
(Clipboard()-&gt;HasFormat(CF_BITMAP))<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>{<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; 
</SPAN>Form1-&gt;BitBtn1-&gt;Visible=true;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; 
</SPAN>Form1-&gt;RichEdit1-&gt;Visible=false;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; 
</SPAN>Form1-&gt;BitBtn1-&gt;Glyph-&gt;Assign(Clipboard());<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>}<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>else<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>{<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; 
</SPAN>Form1-&gt;BitBtn1-&gt;Visible=false;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; 
</SPAN>Form1-&gt;RichEdit1-&gt;Visible=false;<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&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=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>}<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">}<o:p></o:p></SPAN></P>
<P class=a3><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>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">如果用户在程序运行的过程中，用鼠标的左键单击“查看剪贴板”按钮，程序首先会判断当前剪贴板上的数据格式；</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>
<P class=MsoNormalIndent><SPAN 
lang=EN-US>Form1-&gt;BitBtn1-&gt;Glyph-&gt;Assign(Clipboard)</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>
<P class=MsoNormalIndent><SPAN 
lang=EN-US>Form1-&gt;BitBtn1-&gt;Caption=Clipboard -&gt;AsText</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></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'">void 
__fastcall TForm1::Button2Click(TObject *Sender)<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US 
style="FONT-FAMILY: 'Times New Roman'">{<o:p></o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US style="FONT-FAMILY: 'Times New Roman'"><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>if 
(Form1-&gt;RichEdit1-&gt;Visible)<o:p></o:p></SPAN></P>
<P class=a3><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