📄 c＋＋builder中实现控件数组的功能.htm
字号:
<TBODY>
<TR>
<TD class=titleback1>相关文章</TD></TR>
<TR>
<TD vAlign=top height=100>· <A title=C++从零开始（三）——何谓变量
href="http://www.malegebide.com/article/1/14/2006/2006092518486.html">C++从零开始（三）—..</A><BR>·
<A title=C++从零开始（四）——赋值操作符
href="http://www.malegebide.com/article/1/14/2006/2006092518485.html">C++从零开始（四）—..</A><BR>·
<A title=C++从零开始（五）——何谓指针
href="http://www.malegebide.com/article/1/14/2006/2006092518484.html">C++从零开始（五）—..</A><BR>·
<A title=标准C＋＋类string的Copy-On-Write技术（一）
href="http://www.malegebide.com/article/1/14/2006/2006092518483.html">标准C＋＋类string的..</A><BR>·
<FONT color=#0066ff>[图文]</FONT> <A
title=标准C＋＋类string的Copy-On-Write技术（三）
href="http://www.malegebide.com/article/1/14/2006/2006092518482.html">标准C＋＋类s..</A><BR>·
<A title="《c++ primer》读书笔记4"
href="http://www.malegebide.com/article/1/14/2006/2006092518481.html">《c++
primer》读书..</A><BR>· <A title="《c++ primer》读书笔记6"
href="http://www.malegebide.com/article/1/14/2006/2006092518480.html">《c++
primer》读书..</A><BR>· <A title=成员函数指针与高性能的C++委托（中篇）
href="http://www.malegebide.com/article/1/14/2006/2006092518479.html">成员函数指针与高性..</A><BR>·
<A title="Borland C++builder资源文件编辑"
href="http://www.malegebide.com/article/1/14/2006/2006092518478.html">Borland
C++builder..</A><BR>· <A title="一个有意思的C++ trick (2)"
href="http://www.malegebide.com/article/1/14/2006/2006092518477.html">一个有意思的C++
tr..</A><BR></TD></TR></TBODY></TABLE></TD>
<TD class=tableright align=right width=588>
<TABLE style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" cellSpacing=0
cellPadding=0 width=575 border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 12pt; COLOR: #ff6600" align=middle
height=32>C＋＋Builder中实现控件数组的功能</TD></TR>
<TR>
<TD align=middle bgColor=#f7f7f7
height=25>作者：佚名 来源：不详 发布时间：25/09/2006
19:59:58 发布人：admin</TD></TR>
<SCRIPT language=javascript>
var newasp_fontsize=9;
var newasp_lineheight=12;
</SCRIPT>
<TR>
<TD>
<P align=right><A title=减小字体
style="CURSOR: hand; POSITION: relative"
onclick='if(newasp_fontsize>8){NewaspContentLabel.style.fontSize=(--newasp_fontsize)+"pt";NewaspContentLabel.style.lineHeight=(--newasp_lineheight)+"pt";}'><IMG
height=15 src="C＋＋Builder中实现控件数组的功能.files/1.gif" width=15
border=0><FONT color=#ff6600>减小字体</FONT></A> <A title=增大字体
style="CURSOR: hand; POSITION: relative"
onclick='if(newasp_fontsize<64){NewaspContentLabel.style.fontSize=(++newasp_fontsize)+"pt";NewaspContentLabel.style.lineHeight=(++newasp_lineheight)+"pt";}'><IMG
height=15 src="C＋＋Builder中实现控件数组的功能.files/2.gif" width=15
border=0><FONT color=#ff6600>增大字体</FONT></A> </P>
<DIV class=ContentFont id=NewaspContentLabel
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"><FONT
id=font_word
style="FONT-SIZE: 14px; FONT-FAMILY: 宋体, Verdana, Arial, Helvetica, sans-serif"><FONT
size=4>Borland C＋＋
Builder作为Inprise（原Borland）公司新推出的快速应用程序开发工具（RAD），<FONT
id=dshhopwjevppkf>-i件3=育.~H.s^72</FONT>具有威力强大的C＋＋语言和快捷便利的可视化编程完美结合的优点，遗憾的是其没有直接提供像VB中的控件数组的功能，需要开发者自己编程实现。<BR>
VB中的一个控件数组可以1、允许多个控件共享同一个事件句柄，2、提供了运行期间增加一个控件的机制，3、提供了一种方便的组合控件的方法。前两项在C＋＋
Builder中早已实现，而且CB更有一个优点。即不同类型的控件可以使用相同的句柄（只需在相关控件的Object
Inspector窗口中的EVENT事件设置即可）。<BR> C＋＋
Builder中使用了Tlist类对象来组合控件数组，与VB控件数组元素必须为同一类型控件相比较，C＋＋
Builder中的Tlist类对象可以组合任意类型的控件而不必强求同一种类，这样就大大地方便了程序开发者。例如可以把在不同Panel面板控件上的所有控件组合为一个控件数组。<BR>
作者在开发实时监控程序时，应用Tlist类对象创建、维护了多类型的控件数组。其实现原理与方法详见以下的原程序代码。实例程序实现了动态创建一个包含8个TEdit类型控件和4个TImage类型控件的控件数组，在程序运行中对所创建的控件进行修改、维护的功能（简单起见，只对TImage控件的Parent属性进行了修改，对控件数组中各个控件的属性修改及事件处理句柄均可依此方法修改）。<BR>
1、创建一个新的工程文件（New
Application），在Form1上放置两个TPanel类型的Panel1和Panel2,调整大小合适，再在窗体下方放置四个TButton类型Button1,Button2,Button3,Button4，<SPAN
id=rppbodiqlph>_S件0管^^无IQq</SPAN>设置控件属性如下：Button1－>Caption=“新建控件数组”，Button2－>Caption=“改变控件位置”，
Button3－>Caption=“还原到原位置”，
Button4－>Caption=“退出”；Button2－>Enabled=false，Button3－>Enabled=false。<BR>
（注：以下黑体字部分为需要手工添加的代码）<BR> 2、在文件Unit1.H中加入以下声明：<BR> class TForm1 :
public TForm<BR> {<BR> __published: // IDE－managed
Components<BR> TPanel ＊Panel1;<BR> TPanel ＊Panel2;<BR> TButton
＊Button1;<BR> TButton ＊Button2;<BR> TButton ＊Button3;<BR>
TButton ＊Button4;<BR> private: // User declarations<BR> TList
＊MyVCL;<BR> public: // User declarations<BR> __fastcall
TForm1(TComponent＊ Owner);<BR> virtual __fastcall ～TForm1(
);<BR> };<BR> 3、切换到工程的Form界面，<FONT
id=dsoaoouvhs>中*\n6+;络d教</FONT>双击工程的主界面Form，创建一个OnCreate事件句柄，在文件Unit1.CPP中加入以下代码：<BR> void
__fastcall TForm1::FormCreate(TObject ＊Sender)<BR> {<BR> MyVCL =
new
TList;//创建TList对象<BR> }<BR> 将TForm1析构函数加入到文件Unit1.CPP中：<BR> __fastcall
TForm1::～TForm1()<BR> {<BR> delete MyVCL;
//删除TList对象<BR> }<BR>
4、双击标签（Caption）为“创建控件数组”的按钮，创建一个OnClick事件句柄，<FONT
id=bjljavlmgkwirbabu>pv60xOM'WYh教X理*z供</FONT>添加以下代码到OnClick事件句柄中：<BR> void
__fastcall TForm1::Button1Click(TObject ＊Sender)<BR> {<BR>
//创建新的控件，调整其位置，并加入到MyVcl（TList 类）之中<BR> int temptop=5;<BR> for
(int i=0;i<4;i＋＋) {<BR> TEdit ＊EditNow = new TEdit(this);<BR>
EditNow－>Parent=Panel1;<BR> EditNow－>Text=
IntToStr(i);<BR> EditNow－>ReadOnly=true;<BR>
EditNow－>Top=temptop;<BR> EditNow－>Height=24;<BR>
EditNow－>Width=24;<BR> EditNow－>Left=10;<BR>
MyVCL－>Add(EditNow); //加入到控件数组中<BR> TImage ＊ImageOff= new
TImage(this);<BR> ImageOff－>Parent=Panel1;<BR>
ImageOff－>Picture－>LoadFromFile(“None.BMP”);<BR>
ImageOff－>Top=temptop;<BR> ImageOff－>Height=24;<BR>
ImageOff－>Width=24;<BR>
ImageOff－>Left=EditNow－>Left＋EditNow－>Width;<BR>
MyVCL－>Add(ImageOff); //加入到控件数组中<BR> TEdit ＊EditStatus = new
TEdit(this);<BR> EditStatus－>Parent=Panel1;<BR>
EditStatus－>Font－>Name = “Arial”;<BR>
EditStatus－>Font－>Size = 12;<BR>
EditStatus－>Text=“禁止访问”;<BR>
EditStatus－>ReadOnly=true;<BR>
EditStatus－>Top=temptop;<BR> EditStatus－>Height=24;<BR>
EditStatus－>Width=80;<BR> EditStatus－>Left=
ImageOff－>Left＋ImageOff－>Width;<BR>
MyVCL－>Add(EditStatus); //加入到控件数组中<BR>
temptop=temptop＋24＋5;<BR> }<BR> Button1－>Enabled=false;<BR>
Button2－>Enabled=true;<BR> }<BR> 5、同4所示方法，
<DIV id=hthkwoqgqcwmus>6o;M"教ldbq垠T2v</DIV>
<DIV
id=joipcicaklbfidk>'bX+管1`K#zD软%ug</DIV>依次双击标签的标题（Caption）为“改变控件位置”、
“还原到原位置”、 “退出”的按钮，创建对应的OnClick事件句柄，添加以下代码到对应的OnClick事件句柄中：<BR> void
__fastcall TForm1::Button2Click(TObject ＊Sender)<BR> {<BR> for
(int i=0;i<4;i＋＋)<BR>
((TImage＊)MyVCL－>Items[i＊3＋1])－>Parent=Panel2;<BR>
Button2－>Enabled=false;<BR>
Button3－>Enabled=true;<BR> }<BR> void __fastcall
TForm1::Button3Click(TObject ＊Sender)<BR> {<BR> for (int
i=0;i<4;i＋＋)<BR>
((TImage＊)MyVCL－>Items[i＊3＋1])－>Parent=Panel1;<BR>
Button3－>Enabled=false;<BR>
Button2－>Enabled=true;<BR> }<BR> void __fastcall
TForm1::Button4Click(TObject ＊Sender)<BR> {<BR> Close();
//关闭窗体<BR> }<BR> 由上所述，实际的代码大多只是用于设定控件位置和基本属性，真正实现控件数组功能的代码并不太多，也不复杂，而且十分的灵活；需要注意的是使用TList类对象组合中的各项控件之前，必须先将其强制转换为一个对象指针以指明其类型，才能对其属性进行修改/赋值操作。<BR> 本文程序在C＋＋
Builder 3.0/ PWin95，C＋＋ Builder 4.0/
PWin98下调试通过。</FONT></SPAN></SPAN>
<DIV class=Message id=Message></DIV></FONT></DIV>
<DIV></DIV></TD></TR>
<TR>
<TD
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"
align=right bgColor=#f7f7f7 height=25>[
<SCRIPT language=JavaScript
src="C＋＋Builder中实现控件数组的功能.files/Hits.htm"></SCRIPT>
] [<A href="javascript:history.go(-1)">返回上一页</A>] [<A
href="javascript:window.print()">打 印</A>] [<A
href="http://www.malegebide.com/user/favorite.asp?action=add&topic=C＋＋Builder中实现控件数组的功能">收
藏</A>]</TD></TR>
<TR>
<TD
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
<DIV>上一篇文章：<A
href="http://www.malegebide.com/article/1/14/2006/2006092518460.html">用C＋＋Builder
建立数据库VCL使用经验</A></DIV>
<DIV>下一篇文章：<A
href="http://www.malegebide.com/article/1/14/2006/2006092518462.html">C++中的多重继承</A></DIV></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=575 border=0>
<TBODY>
<TR>
<TD class=titlebg1>∷相关文章评论∷ （评论内容只代表网友观点，与本站立场无关！） [<A
href="http://www.malegebide.com/article/comment.asp?ArticleID=18461"
target=_blank>更多评论</A>…]</TD></TR>
<TR vAlign=top>
<TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!-- 页面底部开始 -->
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD class=linebar height=8></TD></TR>
<TR>
<TD height=5></TD></TR>
<TR>
<TD class=tablebody align=middle height=65>QQ:310646 <A class=navmenu
href="http://www.malegebide.com/admin/admin_login.asp" target=_blank>A</A>
Copyright © 2006 <FONT face=Verdana, sans-serif Helvetica,
Arial,><B>Malegebide.Com</B></FONT>.
<SCRIPT language=javascript src="C＋＋Builder中实现控件数组的功能.files/529370.js"
type=text/javascript></SCRIPT>
No Rights Reserved <BR></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<SCRIPT language=javascript
src="C＋＋Builder中实现控件数组的功能.files/Std_StranJF.Js"></SCRIPT>
<!-- 页面底部结束 -->
<SCRIPT src="C＋＋Builder中实现控件数组的功能.files/count.htm"
type=text/javascript></SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -