Копирование пунктов меню

[Altera]

Всем привет!
Дело такое.
В run time формируется менюшка. После чего надо перенести все её пункты в 2 других меню.

var
item: tMenuItem;
begin
   ...
   menu1.Items.Add(item);
   menu2.Items.Add(item);
   menu3.Items.Add(item);
end;

[psycho-coder]

А Assign пробовали?

[Altera]

Сообщение от psycho-coder

А Assign пробовали?

Пробовали. И тоже ошибку выдаёт.

[Баламут]

И будет выдавать. Дело в том, что метод Insert у TPopupMenu проверяет родителя итема на nil. И в случае неравенства его таковому генерирует ошибку. Вот так это выглядит:

  if Item.FParent <> nil then 
    Error({$IFNDEF CLR}@{$ENDIF}SMenuReinserted);

Не проще ли просто для каждого меню создавать свои итемы и присваивать им необходимые заголовки и обработчики кликов?

[Altera]

Сообщение от Баламут

И будет выдавать. Дело в том, что метод Insert у TPopupMenu проверяет родителя итема на nil. И в случае неравенства его таковому генерирует ошибку. Вот так это выглядит:

  if Item.FParent <> nil then 
    Error({$IFNDEF CLR}@{$ENDIF}SMenuReinserted);

Не проще ли просто для каждого меню создавать свои итемы и присваивать им необходимые заголовки и обработчики кликов?

Да, наверное так и придётся сделать. Я просто думал, что есть способ по красивее