关于RTTI:如何对控件的方法赋值

[windindance]

#include <typinfo.hpp>

{
for (int i=0; i<ControlCount; i++)
{
if (IsPublishedProp(Controls[i], "OnKeyPress"))
// how do it ?
//SetPropValue(Controls[i], "OnKeyPress", ControlKeyPress);//不行
//我想应该是用SetMethodProp，但不知怎样用。
}
}

[柯本]

void test()
{
ShowMessage("OK");
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{

System::TMethod __fastcall p;

p.Code=(void *)&test;
p.Data=NULL;
for (int i=0; i<ControlCount; i++)
{
if (IsPublishedProp(Controls[i], "OnKeyPress"))
{
// p=GetMethodProp(Controls[i], "OnKeyPress");
SetMethodProp(Controls[i], "OnKeyPress",p);
}
}
}

p.Code 可是一个指向函数的指针
p.Date 不知为何用

[kingcaiyao]

keiy，你好，我觉得你定的代码中，有点想问一你下，我觉得：
p.Code=(void*)test，即可。因为函数名本身就是地址，你的意见呢?

[柯本]

很对！在新的C++ 标准中：
test == &test

[xyzguan]

Gz