Вниз
Скачать: 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.021 c
8-1109016115
Romantic
2005-02-21 23:01
2005.06.06
Облегчить TImage


1-1116916210
race1
2005-05-24 10:30
2005.06.06
редактор форм


1-1116836846
avtsasha
2005-05-23 12:27
2005.06.06
открыть файл в hex


1-1116476115
sapsi
2005-05-19 08:15
2005.06.06
Загрузка строк в Мемо


3-1114671429
Elast
2005-04-28 10:57
2005.06.06
SQL запрос




   Наверх