Popup menu

← →
acsoft © (2005-05-22 14:30) [0]

Есть объект на форме PopupMenu1, например. Есть Memo. Как добавить в стандартное меню этого Memo строки PopupMenu1?

← →
Marser © (2005-05-22 14:36) [1]

for i:=0 to popupmenu1.items.count-1 do
memo1.lines.add(popupmenu1.items[i].caption)

← →
acsoft © (2005-05-22 21:16) [2]

Не в текст Memo, a в его стандартное PopupMenu... ну, в котором пункты "Вырезать", "Копировать", "Вставить" и т.д.

← →
acsoft © (2005-05-22 21:28) [3]

Вопрос короче в том, как объединить два меню

memo1.Popupmenu.Items.Add(popupmenu1.Items[0]) не работает....
:(

← →
Eraser © (2005-05-22 21:31) [4]

acsoft ©

А разве "пользовательское" (своё) меню не заменяет "стандартное"?

← →
Marser © (2005-05-22 21:59) [5]

Memo1.PopupMenu:=PopupMenu1.

← →
acsoft © (2005-05-22 22:27) [6]

Заменяет.
Memo1.PopupMenu:=PopupMenu1 - именно это и делает...
А нужно объединить.

Вообще история такая. У меня в программе есть таблица. Я сделал меню новое с пунктами Добавить ячейки, Удалить ячейки. Но теперь нет возможности нормально редактировать текст в ячейках (по правой клавише мыши выскакивает новое меню, и нет пунктов Вставить, вырезать и т.д.) Не хочется постоянно переключать меню... как бы объединить?...

Забудь, не ты первый.

← →
Ученик (2005-05-22 22:43) [8]

>acsoft © (22.05.05 22:27) [6]
Можно создать наследника TPopupMenu или TPopupActionBar, в который при созданию входят пункты меню редактирования.

>Anatoly Podgoretsky © (22.05.05 22:33) [7]
Судя по найденному Яндексом, это действительно безнадежно.

>Ученик (22.05.05 22:43) [8]
У меня такое ощущение, что все дело в том, что стандарное меню просто не существует, пока его не вызвали, т.е. оно каждый раз создается заново по клику мышью, так что не получится никак добавлять пункты, даже описав наследника.

Короче проще будет все в одно меню и прописать заново вставку из буфера и вырезание... а может меню все же подменять. Ладно, спасибо всем

Popup menu Найти похожие ветки