发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 1.2 实现类似VB中的控件数组
发信站: 哈工大紫丁香 (2000年09月01日13:13:33 星期五), 站内信件

在Delphi中实现类似VB中的控件数组。 

你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个
BUTTON控件，然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个
按钮，
在其代码部分输入如下代码：
procedureTForm1．Button1Click（Sender：TObject）；
varcap：string；
begin
caseTButton（sender）．Tagof
1：ShowMessage（′1stButtonPressed′）；
2：ShowMessage（′2ndButtonPressed′）；
3：ShowMessage（′3rdButtonPressed′）；
end；
end；
最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现
以上功能了。

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]