精华公布栏

发信人: Scorpion (真的好想牵你的手), 信区: BorlandDev
标  题: 谈谈动态建立控件及其事件处理(转载)
发信站: 哈工大紫丁香 (2000年08月29日21:31:51 星期二), 站内信件

发信人: Fishman (鱼~戒网中...), 信区: BCB
标  题: 谈谈动态建立控件及其事件处理
发信站: BBS 水木清华站 (Wed Apr 14 20:57:23 1999)
             谈谈动态建立控件及其事件处理
说明：1) 最近帮人做一个小程序，用到这方面的内容；
      2) 网上的文章都不是很完整；
      3) 有不足之处或其它建议，请各位网友赐教。
举例：建立10个TLabel控件和10个TButton控件,并使用同一个事件处理函数。
实现：
      1) New Application
      2) 画TButton Button1,在Button1Click(TObject *Sender)中写以下程序:
        void __fastcall TForm1::Button1Click(TObject *Sender)
        {
            TLabel *lbl;
            TButton *btn;
          //建立10个Tlabel控件数组
          for (int i=0;i<10;i++) {
            lbl = new TLabel(this);              //建立一个TLabel
            lbl->Parent=this;                    //设置Parent属性
            lbl->Name="MyLabel"+String(i);       //设置Name属性
            lbl->Caption=lbl->Name;              //设置Caption属性
            lbl->Left=i*80+20;                   //设置坐标
            lbl->Top=0;
            lbl->OnClick=ControlClick;           //设置事件Click Event
            lbl->Visible=true;                   //显示
          }
          //建立10个TButton控件数组
          for (int i=0;i<10;i++) {               //同上
            btn = new TButton(this);
            btn->Parent=this;
            btn->Name="MyButton"+String(i);
            btn->Caption=btn->Name;
            btn->Left=i*80+20;
            btn->Top=100;
            btn->OnClick=ControlClick;
            btn->Visible=true;
          }
        }
      3) 书写ControlClick函数如下：
        void __fastcall TForm1::ControlClick(TObject *Sender)
        {
         TComponent *ctl;

         ctl=(TComponent *)Sender;
         //这里可以用switch(ctl->Name),case语句做一些复杂的控制
         ShowMessage(ctl->Name);
        }
最后：运行，按一下Button1，出现结果。当然，再按一下就出错啦:PPP
提示：最好把动态建立的控件delete or free掉。
--
        ☆ _______   ·     ☆           ☆★☆★☆★☆★☆★☆★☆★☆★
     伞   ノ____ノ□     ●    伞        ★                            ☆
    伞伞  ｜    ｜｜          伞伞       ☆  海阔凭鱼跃，�             ★
   伞伞伞 ˉˉˉˉˉ-_   ♀  伞伞伞      ★               天高任鸟飞   ☆
     ‖               ˉ-へ    ‖        ☆                         �  ★
  ≈≈ Fishman(珍贵熊猫鱼～～～) ≈≈    ★☆★☆★☆★☆★☆★☆★☆★☆
※ 修改:·Fishman 於 Apr 14 21:13:08 修改本文·[FROM:  202.116.30.100]
※ 修改:·Fishman 於 Apr 14 21:14:00 修改本文·[FROM:  202.116.30.100]
※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 202.116.30.100]
--
★★  Scorpion!★★

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