c++ builder 程序设计实用教程 - 2_1 通用按钮组件 - 张晋 - 17xie.htm

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

style="FONT-FAMILY: 仿宋_GB2312; mso-ascii-font-family: 'Times New Roman'">程序清单</SPAN></P></DIV>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>#include &lt;vcl.h&gt;</SPAN></P>
<P class=a1><SPAN lang=EN-US>#pragma hdrstop</SPAN></P>
<P class=a1><SPAN lang=EN-US>#include &lt;math.h&gt;</SPAN></P>
<P class=a1><SPAN lang=EN-US>#include "U_Calc.h"</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>#pragma package(smart_init)</SPAN></P>
<P class=a1><SPAN lang=EN-US>#pragma resource "*.dfm"</SPAN></P>
<P class=a1><SPAN lang=EN-US>TForm1 *Form1;</SPAN></P>
<P class=a1><SPAN lang=EN-US>int temp1;</SPAN></P>
<P class=a1><SPAN lang=EN-US>float temp2;</SPAN></P>
<P class=a1><SPAN lang=EN-US>int flag;</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>__fastcall TForm1::TForm1(TComponent* 
Owner)</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>: 
TForm(Owner)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::FormCreate(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Clear();</SPAN></P>
<P class=a1><SPAN lang=EN-US><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=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>temp1=0;</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>temp2=0;</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>flag=0;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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=a1><SPAN lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button1Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button1-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>1</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button2Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button2-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>2</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button3Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button3-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>3</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button4Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button4-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>4</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button5Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button5-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>5</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button6Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button6-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>6</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button7Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button7-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>7</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button8Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button8-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>8</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button9Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button9-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>9</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button10Click(TObject 
*Sender)</SPAN></P>
<P class=a1><SPAN lang=EN-US>{</SPAN></P>
<P class=a1><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;</SPAN>Form1-&gt;Edit1-&gt;Text=Form1-&gt;Edit1-&gt;Text+Form1-&gt;Button10-&gt;Caption;</SPAN></P>
<P class=a1><SPAN lang=EN-US><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>0</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 lang=EN-US>}</SPAN></P>
<P class=a1><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a1><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a1><SPAN lang=EN-US>void __fastcall TForm1::Button13Click(TObject 
*Sender)</SPAN></P>