是否有任何可能的方法将事件(自定义）附加到在运行时创建的对象?[C 构建器]

Is there any possible way to append an event (custom made) to an object created in run-time ?[C++ Builder]

本文关键字：对象 创建 运行时 构建 方法 任何可 事件 是否 自定义      更新时间：2023-10-16

所以，我尝试在运行时创建一些TEDIT对象，最终我试图发现的是：我应该如何创建一个自定义的OnClick事件并将其附加到运行时中的对象上，例如，事件应采用2个参数，发件人对象(显然(和TEDIT对象的索引。该事件应更改在运行时创建的TEDIT对象的某些属性，其索引将作为参数传递，因此文本属性将就像："在[索引]编辑中输入某些值"，或以这种方式进行某些内容。

Edit=new TEdit*[nr_elem];
    for(int i=0;i<nr_elem;i++)
    {
    Edit[i]=new TEdit(this);
    Edit[i]->Width=75;
    Edit[i]->Height=20;
    Edit[i]->Top=100+15*i;
    Edit[i]->Left=50;
    Edit[i]->Parent=Form1;
   /** Now I should append the event to the Edit[i] object*/
}

活动应该看起来像：

 void __fastcall TForm1::EditNClick(TObject *Sender,int index)
{
    Edit[index]->Text="Enter some value in the"+AnsiString(index)+" box";
}

您无法分配与OnClick期望的签名相匹配的处理程序：

typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);

这意味着您根本无法添加额外的参数。

但是，您可以为所有TEdit控件分配一个OnClick处理程序，然后利用Sender参数来知道要单击哪个TEdit，例如：

Edit = new TEdit*[nr_elem];
for(int i = 0; i < nr_elem; ++i)
{
    Edit[i] = new TEdit(this);
    Edit[i]->Width = 75;
    Edit[i]->Height = 20;
    Edit[i]->Top = 100+15*i;
    Edit[i]->Left = 50;
    Edit[i]->Parent = this;
    Edit[i]->Tag = i;
    Edit[i]->OnClick = EditClick;
}
...
void __fastcall TForm1::EditClick(TObject *Sender)
{
    TEdit *Edit = static_cast<TEdit*>(Sender);
    EditNClick(Edit, Edit->Tag);
}
void __fastcall TForm1::EditNClick(TEdit *Sender, int index)
{
    Sender->Text = _D("Enter some value in the ") + String(index) + _D(" box");
}

如果您不想依靠Tag(即，如果您将其用于其他内容(，或者如果要将其他自定义数据附加到每个编辑中，则可以使用自定义派生类：

class TMyEdit : public TEdit
{
public:
    int ArrayIndex;
    ...
    __fastcall TMyEdit(TComponent *Owner) : TEdit(Owner) {}
};
...
Edit = new TEdit*[nr_elem];
for(int i = 0; i < nr_elem; ++i)
{
    Edit[i] = new TMyEdit(this);
    Edit[i]->Width = 75;
    Edit[i]->Height = 20;
    Edit[i]->Top = 100+15*i;
    Edit[i]->Left = 50;
    Edit[i]->Parent = this;
    static_cast<TMyEdit*>(Edit[i])->ArrayIndex = i;
    Edit[i]->OnClick = EditClick;
}
...
void __fastcall TForm1::EditClick(TObject *Sender)
{
    TMyEdit *Edit = static_cast<TMyEdit*>(Sender);
    EditNClick(Edit, Edit->ArrayIndex);
}
void __fastcall TForm1::EditNClick(TEdit *Sender, int index)
{
    Sender->Text = _D("Enter some value in the ") + String(index) + _D(" box");
}

一种方法是将索引嵌入到teDit标签字段中，然后给他们所有相同的单击处理程序：

    Edit[i]->Left=50;
    Edit[i]->Parent=Form1;
    Edit[i]->Tag = i;
    Edit[i]->OnClick = myclick;

然后MyClick处理程序可能是：

void __fastcall TForm1::myclick(TObject *Sender)
{
    if (TEdit * ed = dynamic_cast<TEdit *>(Sender))
    {
        ed->Text="Enter some value in the"+AnsiString(ed->Tag)+" box";
    }
}

hth。

相关文章：