Вниз
Скачать: 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.038 c
3-1115128555
Taurus
2005-05-03 17:55
2005.06.06
Определение объекта на форме


14-1116265826
Nous Mellon
2005-05-16 21:50
2005.06.06
Онлайн-бизнес


3-1114546513
suharew
2005-04-27 00:15
2005.06.06
Как с помощью SQL показать первые 10 записей из базы


14-1116515386
QuasiLamo
2005-05-19 19:09
2005.06.06
Актуальный список регионов и городов России


1-1116905491
Viktop
2005-05-24 07:31
2005.06.06
Поиск в файле




   Наверх