TPopMenu, TMenuItem и процедура обработки нажатия

[Denager]

Сабж
Имеется массив TPopUpMenu (Для каждого объекта, все однотипны) и добавляю пункты для него:

PopUpItem:=TMenuItem.Create(Popup[i]);
PopUpItem.Caption:='Заголовок1';
PopUpItem.OnClick:=Form2.CliCkItem;
PopUp[i].Items.Add(PopUpItem);

PopUpItem:=TMenuItem.Create(Popup[i]);
PopUpItem.Caption:='Заголовок2;
PopUpItem.OnClick:=Form2.CliCkItem;
PopUp[i].Items.Add(PopUpItem)

PopUpItem:=TMenuItem.Create(Popup[i]);
PopUpItem.Caption:='Заголовок3';
PopUpItem.OnClick:=Form2.CliCkItem;
PopUp[i].Items.Add(PopUpItem)

Есть процедура обработки OnClick

Procedure TForm2.CliCkItem(Sender: TObject);
begin
//??
end;

Вопрос заключается в следующем:
Каким образом сделать так, чтобы при уже сформированных пунктах PopUpMenu, при их выборе в буфер копировалась ссылка именного того i-ого PopUpMenu, которое было вызывано

[AXS]

Ну во первых добавлять пункты меню можно проще:

with PopUpMenu1.Items do
begin
  Add(NewItem('First Menu', 0, False, True, MenuItem0Click, 0, 'MenuItem1'));
  Add(NewItem('Second Menu', 0, False, True, MenuItem0Click, 0, 'MenuItem2'));
  Add(NewItem('Third Menu', 0, False, True, MenuItem0Click, 0, 'MenuItem3'));
  Add(NewLine); // Добавляем разделитель
  Add(NewItem('Fourth Menu', 0, False, True, MenuItem0Click, 0, 'MenuItem4'));
end;

А во-вторых есть такой способ:

Procedure TForm2.CliCkItem(Sender: TObject);   
begin  
  ShowMessage('Кликнули по '+(Sender as TMenuItem).Caption);   
end;

А вообще можешь каждому пункту присвоить своё значение Tag и писать

case (Sender as TMenuItem).Tag of
    1: begin

        end;
    2:  //и т д

[_Engine_]

Sender - это и есть тот TPopupMenu

[AXS]

Совершенно верно. Только не TPopupMenu, а TMenuItem. Sender - это объект вызвавший событие (в нашем случае ClickItem помойму) просто Объект понятие растяжимое поетому пишем (Sender as TMenuItem)

[Denager]

AXS, спасибо, как раз, то что нужно.
тогда еще вопрос, когда делаю вот так

Procedure TForm2.ClickIt(Sender: TObject);
begin
ClipBoard.Clear;
ClipBoard.AsText:=(Sender as TMenuItem).Caption;
end;

В строке появляется аперсант (&), эт чо и как от него избавится кроме того как искать его в строке и удалять

[AXS]

Сообщение от Denager

AXS, спасибо, как раз, то что нужно.
тогда еще вопрос, когда делаю вот так

Procedure TForm2.ClickIt(Sender: TObject);
begin
ClipBoard.Clear;
ClipBoard.AsText:=(Sender as TMenuItem).Caption;
end;

В строке появляется аперсант (&), эт чо и как от него избавится кроме того как искать его в строке и удалять

Этим знаком обозначают букву которая будет подчёркиваться в названии пункта меню
Например:
Файл
Открыть
...
Нажимаешь Alt+ф и активируется пункт "Файл"

AutoHotKeys выставь в maManual

[Denager]

Мммм..Спасибо за раъяснение, значит выдирать ее только через delete();?

[AXS]

Сообщение от Denager

Мммм..Спасибо за раъяснение, значит выдирать ее только через delete();?

Я ж говорю AutoHotKeys выставь в maManual

[mutabor]

Все несколько проще

with Sender as TMenuItem do
  ShowMessage(IntToStr(MenuIndex));

Если нужны строки, создайте TStringList и храните в нем, тогда пункт в меню может называться как-то сокращенно, а в списке будет полная строка.
Тогда будет так:

with Sender as TMenuItem do
  begin
    ClipBoard.Clear;
    ClipBoard.AsText:=MyStringList[MenuIndex];
  end;