很怀念VB的控件数组：
case 1：
[ 操作1…… ]
case 2：
[ 操作2…… ]
在Delphi中这样实现，如下图：
上图中“进入系统”和“退出系统”两个按钮，分别命名为：
speedbutton1
speedbutton2
这两个按钮的Tag属性分别赋值为1和2。
在speedbutton1的click事件中编写如下代码：
case Tspeedbutton(sender).Tag of
1:
begin
showmessage('进入系统' + #13 + 'OK');
formMain.show;
2:
showmessage('退出系统' + #13 + 'OK');
End;
然后在speedbutton2的click事件中选择关联speedbutton1click事件。
这样点击不同按钮 响应不同事件操作：点击1，进入系统，点击2，退出系统。
这是系统退出提示界面，有三个命令按钮，采用前面的方法实现控件数组，分别响应：1返回系统，2重新启动，3退出系统。
| 留言与评论（共有 0 条评论） “” |
![碎片时间学编程「102]：基于函数的分叉数组](https://www.fensifuwu.com/e/extend/timthumb.php?src=https://p6.toutiaoimg.com/origin/tos-cn-i-qvj2lq49k0/903ba122384f4f198ee151399539788e.png?from=pc&w=218&h=124&zc=1)
