可以单独设计一个公用的事件响应函数，然后为每个动态生成的控件的相应响应函数赋值，内容就是这个公共的响应函数。

例如，用鼠标随机在窗体上点击，生成新的Image控件，然后让所有的新Image控件具有相同的响应Click的函数：

void __fastcall TForm1::ImgClick(TObject *Sender)
{
  TImage *cn;
  cn=(TImage *)Sender;
  TPoint pt;
  GetCursorPos(&pt);
  // 。。。。。pt.x
  ShowMessage("新增站点！");
}

void __fastcall TForm1::onClick(TObject *Sender)
{
  int ii;
  TPoint pt;
  GetCursorPos(&pt);

  ImnCount++; //ImnCount是静态私有成员变量
  ii= ImnCount;
  Imn[ii]=new TImage(this);//Imn是静态私有成员变量,容纳新的图片控件

  Imn[ii]->Parent=this;


  Imn[ii]->Picture->LoadFromFile("xxxLarge.bmp");
  Imn[ii]->Visible = true;
  Imn[ii]->PopupMenu = PopupMenu1;
  
  Imn[ii]->OnClick=ImgClick; //注意这一句，其他的响应函数可以以类似的方式实现

  Imn[ii]->Left=pt.x;
  Imn[ii]->Top=pt.y;


}
[em9]