Здравствуйте, Аноним, Вы писали:


А>Да, блин, маразм какой-то! Не должно так работать! Приведи код, что ли... Я сам ещё попробую аналогичное сделать...

вот пример на Делфи:
На форма имеем указанное меню + компонент мемо в который сбрасываются события кликов.

procedure TForm1.FormCreate(Sender: TObject);
begin
  mm_State.Clear;
  Self.PopupMenu := ppm_Main;
  mi_Item2.OnClick := ItemXXClick;
  mi_Item21.OnClick := ItemXXClick;
end;

procedure TForm1.ItemXXClick(Sender: TObject);
begin
 mm_State.Lines.Add(TMenuItem(Sender).Caption+' is clicked');
end;

В результате при клике на item21 мы имеем в мемо следующий текс:

item2 is clicked
item21 is clicked

Только не надо говорить что б я не присваивал mi_Item2.OnClick := ItemXXClick; обработчик на item2 должен быть в этом задумка