Вниз
Скачать: CL | DM;

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 - именно это и делает...
А нужно объединить.

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


 
Anatoly Podgoretsky ©   (2005-05-22 22:33) [7]

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


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

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


 
acsoft ©   (2005-05-23 11:11) [9]

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

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.039 c
4-1112513000
Grief
2005-04-03 11:23
2005.06.06
Прозрачное окно (полностью) на API


4-1113721831
Ola
2005-04-17 11:10
2005.06.06
Как при запуске приложения менять курсор мыши на мой собственный.


1-1116608902
френк
2005-05-20 21:08
2005.06.06
путь к сервису


3-1114659708
Deshifrator
2005-04-28 07:41
2005.06.06
Ошибка метода GetIndexForFields


1-1116920811
ALL
2005-05-24 11:46
2005.06.06
Drag&Drob




   Наверх