本帖最后由 seleron 于 2010-05-08 09:49:13 编辑

解决方案 »

  1.   

    ShowMessage((((Sender as TButton).Parent) as TDBEditEh).Name);
      

  2.   

    你还可以通过 创建的时候把 i 值 赋给 DBEditEhArray[i].tag:=i;然后(((Sender as TButton).Parent) as TDBEditEh).tag
      

  3.   

    感谢   tiankun66 提供的思路,问题已经解决创建控件时,加入如下语句
    DBEditEhArray[i].Tag:=i;
    单击按钮时,通过如下语句判断 
    Self.Caption:=inttostr(TDbEditEh( TEditButtonControlEh(Sender).Owner).tag);
      

  4.   

    我这边用 tform 的时候是没错哈。方法也是差不多的哈