因此,我尝试在运行时创建一些TEdit对象,最终我要找出的是:我应该如何创建一个自定义的OnClick事件并将其附加到运行时中的对象,例如,该事件应该有两个参数,发送者对象(显然)和TEdit对象的索引。该事件应该更改在运行时创建的TEdit对象的某些属性,该对象的索引将作为参数传递,因此Text属性将类似于:“在索引编辑中输入一些值”,或类似于这种方式。
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";
}
发布于 2019-05-23 07:14:23
您不能分配与OnClick
期望的签名不匹配的处理程序:
typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);
这意味着你根本不能添加额外的参数。
但是,您可以将单个OnClick
处理程序分配给所有TEdit
控件,然后利用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");
}
发布于 2019-05-23 03:39:20
一种方法是将索引嵌入到TEdit标记字段中,然后为它们提供相同的OnClick处理程序:
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。
https://stackoverflow.com/questions/56262878
复制相似问题