|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.02.2007, 21:39 | #1 |
Helper
Форумчанин
Регистрация: 10.12.2006
Сообщений: 109
|
TMainMenu и его подменю
Как в одном из подменю TMainMenu вывести список всех файлов определенного расширения? Список файлов я нашел - можно запихнуть его в Memo или filelistbox А вот как создать такое же количество пунктов меню с такими же названиями как имена файлов - запор.
В кулибе (первая книга) есть инфа, но я не догнал многого. Например, количество пунктов меню. З.Ы. про класс TMenuItem напишите, пожалуйста, поподробнее. Thanks.
Глупых вопросов не бывает - бывают глупые ответы.
|
05.02.2007, 22:07 | #2 |
Пользователь
Регистрация: 19.01.2007
Сообщений: 16
|
То есть ты хочешь динамически изменять количество пунктов в меню ?
|
06.02.2007, 01:23 | #3 | |
Helper
Форумчанин
Регистрация: 10.12.2006
Сообщений: 109
|
Цитата:
Глупых вопросов не бывает - бывают глупые ответы.
|
|
06.02.2007, 07:03 | #4 |
Пользователь
Регистрация: 05.02.2007
Сообщений: 10
|
Мдя....
{MainMenu уже создано глобально} var MenuItem :TMenuItem; ParentItem :TMenuItem; begin {Считаю, что StringList создан и заполнен нужной инфой} ParentItem - родительский элемент Меню for i:=StringList.count-1 downto 0 do begin MenuItem :=TMenuItem.Create(ParentItem); ParentItem.Add(MenuItem); MenuItem.Caption :=StringList.Strings[i]; MenuItem.ImageIndex :={нужный}; MenuItem.Hint :='Файл '+StringList.Strings[i]; end; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как динамически создать процедуры для подменю компонента TMainMenu | Dimitriys | Общие вопросы Delphi | 9 | 13.01.2011 18:02 |
Фокус на раздел TMainMenu | kraw2 | Общие вопросы Delphi | 5 | 19.02.2008 19:32 |
подменю в MainMenu | dante77 | Компоненты Delphi | 0 | 20.11.2007 19:25 |
Создание подменю | extatic | Помощь студентам | 1 | 07.08.2007 20:51 |
Проблемма с компонентой TMainMenu | Nik_K | Компоненты Delphi | 2 | 05.02.2007 22:25 |