作者:ricky    來源:程式設計俱樂部                     使動態產生的物件,有OnClick事件功能 要注意哦… 要先產生後OnClick事件才不會出錯… void __fastcall TForm1::btnOKClick(TObject *Sender) { edtText-＞Font-＞Size=edtSize-＞Text.ToInt(); //尋找在主選單中是否有此資料 TMenuItem *FontSizeItem=MainMenu-＞Item-＞Items[0]; for(int i=0; i＜FontSizeItem-＞Count; i ) { TMenuItem *Item=FontSizeItem-＞Items[i]; if (Item-＞Caption==edtSize-＞Text) { return; } } TMenuItem *NewItem=new TMenuItem(this); //產生一選項 //這兒就是您要的 NewItem-＞Caption=edtSize-＞Text; NewItem-＞SizeMenuItemClick; FontSizeItem-＞Add(NewItem); }