● DELPHI使用技巧（1） - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: DELPHI使用技巧（1）
发信站: BBS 荔园晨风站 (Thu Jan 21 22:27:40 1999), 转信

技巧1：在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 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店