VPF::Копирование меню в ListBox - Форум программистов

ChOrT

Дата 22.3.2006, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Точно...

А можно, чтобы в цикле загружались все, кроме 1 подменю?

bems

Дата 22.3.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


procedure EnumerateMenuItems(item:TMenuItem;BeginFrom:integer);
var i:integer;
begin
if (item.count=0)
   then form1.lb.Items.Add(item.caption)
   else for i:=BeginFrom to item.Count-1 do
        EnumerateMenuItems(item[i],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items,1);
end;

Примерно так.
Только если ты будешь меня спрашивать о каждом изменении кода, то свою программу будешь до пенсии писать.
Легче будет понять как это работает и изменять все самому. Что не ясно - спрашивай.

Цитата(ChOrT @ 21.3.2006, 20:24

)

а как с твоим кодом ... просто я что-то не догоняю его вообще

Что именно не понятно?

--------------------

Обижено школьников: 8

ChOrT

Дата 22.3.2006, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Ничего не ясно, вот... smile

Думал спрошу что не понимаю, а ты тут такие шняги выкинул, вообще запутал... А сам бы я это написал... Написал бы сам, только строк так в 100 smile

Потому что не могу никак разобраться в циклах с этими индексами тупыми... smile

А ты асю когда-нибудь включаешь вообще? Напиши мне плиз, или включи хотя бы...

bems

Дата 23.3.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(bems @ 22.3.2006, 21:50

)

Код


procedure EnumerateMenuItems(item:TMenuItem;BeginFrom:integer);
var i:integer;
begin
if (item.count=0)//если нет подпунктов
   then form1.lb.Items.Add(item.caption)//то добавляем заголовок в листбокс
   else for i:=BeginFrom to item.Count-1 do//а если есть - перечисляем все подпункты
        EnumerateMenuItems(item[i],0);//и для каждого из них запускаем эту же процедуру
//параметр BeginFrom - начальный индекс до которого ничего не добавляем
//для подпунктов ставим его в 0  - подпункты выводим сначала
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items,1);//а тут ставим его один - то есть на
//первом уровне рекурсии первый подпункт все-таки пропустить
end;

Добавлено @ 16:29
асю вечером посмотрю

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »