Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » (delphi) Процедурное создание подпунктов popup menu

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

StormWhisper

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мне нужно создавать подпункты, которые будут вставлять своё название в memo.
Самый главный вопрос: как проще всего создавать подпункты с одной лишь командой?
 
Должно выглядеть так:
Вставить > первый
второй
третий
 
и каждый из них должен вставлять своё имя типа как '##первый##'
 
Добавлено:
Лучше будет, если это будет функция, которая будет давай имя подпункту и команду во вставочкой.
 
Добавлено:
А ещё мне надо знать, как все эти подпункты удалить. Просто при загрузке другого проекта там могут быть другие названия.

Всего записей: 3 | Зарегистр. 24-09-2010 | Отправлено: 11:58 26-05-2013
miwa

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Самый главный вопрос: как проще всего создавать подпункты с одной лишь командой?  

Написать необходимую функцию самому, так как код типа
 
menuitem := tmenuitem.create(parentmenu);
menuitem.caption := ...;
menuitem.onclick := ...;
menuteim.name := ...;
 
и так далее в «одну команду» не поместится ну никак.
 
Удаляются объекты с формы методом Free или процедурой FreeAndNil (по желанию).

Всего записей: 455 | Зарегистр. 10-10-2004 | Отправлено: 10:53 27-05-2013
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » (delphi) Процедурное создание подпунктов popup menu


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru