Помогите с onClick

[BeeX]

Хочу чтоб прога сама создавала пункты меню (в частности popup). к этим пунктам она присваивала соответственную функцию onClick. Внимание! программа откомпелированная! Ну с созданием пунктов я разобрался сам... Осталось события присвоить...
Подскажите как это делать...
Заранее спасибо!

[SalasAndriy]

Доброго времени суток! Ну что я могу сказать. Вот посмотри:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   // Элемент №1
   TMenuItem *Menu = new TMenuItem(0);
   Menu->Caption = "Название элемента меню 1";

   // Здесь ты указываешь элементу функцию
   // чтоб он мог её вызвать впи возникновении события
   Menu->OnClick = MenusClick;  

   // Добавляем элемент 
   MainMenu1->Items->Add(Menu);

   // или PopupMenu1->Items->Add(Menu);

   // Элемент №2
   Menu = new TMenuItem(0);
   Menu->Caption = "Название элемента меню 2";

   // Здесь ты указываешь элементу функцию
   // чтоб он мог её вызвать впи возникновении события
   Menu->OnClick = MenusClick;  

   // Добавляем элемент 
   MainMenu1->Items->Add(Menu);

   // или PopupMenu1->Items->Add(Menu);
}
//---------------------------------------------------------------------
// Функция которая будет исполнятся при нажатии на 
// уже созданый тобой елемент. Но учти что она должна
// быть заранее создана потому, что создать её програмно
// не выйдет. Функция MenusClick должна быть обьявлена
// в форме.
void __fastcall TForm1::MenusClick(TObject *Sender)
{
   TMenuItem *Menu = (TMenuItem*)Sender;
   AnsiString Text = Menu->Caption;

   // Цикл для устранения символа '&' из строки
   // он там часто присудствует без ведома.
   // Этот символ при выводе текста подчеркивает
   // следующую за ним букву например:
   // Слово: "&Страна"
   // Результат: "Страна"
   for(int i = 1; i < Text.Length(); i++)
   {
      if(Text[i] == '&')
      {
         Text.Delete(i, 1);
         i--;
      }
   }

   if(Text.AnsiPos("Название элемента меню 1") >= 1)
   {
      // Код елемента 1
   }
   if(Text.AnsiPos("Название элемента меню 2") >= 1)
   {
      // Код елемента 2
   }
}
//---------------------------------------------------------------------
}

Ну вот и всё чем смог помочь! Я сам в основном пользуюсь таким принцыпом.
Буду рад если помогло!!!