//---------------------------------------------------------------------------
void __fastcall TForm1::N32Click(TObject *Sender)
{

TMenuItem* item = new TMenuItem(Ns);
item->Caption = "哈哈";
item->OnClick = DocumentClick;
Ns->Add(item);

TButton *b=new TButton(this);
b->Parent=this;
b->Caption=item->Caption;
b->DocumentClick;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DocumentClick(TObject *Sender)
{
TMenuItem* D = dynamic_cast(Sender);
if(D==NULL)return;
ShowMessage("我出現了");

}
//----------------------------------------------

大家好

我希望能夠使用新增的Button去開啟新增MenuItem中的功能..

(點 哈哈Button; 就跳出 "我出現了" 的內容 )

請問該怎麼做呢???

謝謝......