Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Копирование меню в ListBox


Автор: ChOrT 19.3.2006, 19:07
Кто скажет, как скопировать в ListBox распадающееся меню (название его разделов, без названия самого меню)?... С обычным меню получается, с распадающимся никак...

Автор: ChOrT 21.3.2006, 15:34
Цитата

С обычным меню получается, с распадающимся никак...

smile Соответственно распадающееся - необычное, нераспадающееся - обычное... С многоуровневым, короче, не получается... С каскадным... Состоящим из 3-х и более уровней... smile
Если непонял опять, то на пальцах уже показать не смогу, увы... Как скопировать и что такое ListBox объяснить не надо, надеюсь? smile

Автор: bems 21.3.2006, 15:39
Что не получается? Как это выглядит(и чем отличается от того, как должно выглядеть)?
И код покажи

Автор: ChOrT 21.3.2006, 15:41
Блин, забыл... Меню - это, к примеру в опере, такая панелька с кнопочками вверху окна... При нажатии на кнопочки, вылетают разделы этого самого меню... Тобиш, если меню 3-х уровневое, то при подведении крысы к разделу, помеченному черной стрелочкой (справа от раздела), медленно, но верно, выползает еще один список... smile

Автор: bems 21.3.2006, 15:43
Цитата(ChOrT @ 19.3.2006, 19:07 Найти цитируемый пост)
С обычным меню получается
код! и если тот же код для "распадающегося" то в чем разница?

Автор: ChOrT 21.3.2006, 15:52
Код

procedure TForm1.RGSHClick(Sender: TObject);
var i: integer;
begin
LB1.Clear;
for i:=0 to PMSH.Items.Count-1 do
  LB1.Items.Add(PMSH.Items[i].Caption);
end;

В общем виде смотрится так... только LB1 - ListBox, PMSH - PoupMenu smile
Добавлено @ 16:03
Самое главное, что нужно, это через свойство Count определить кол-во элементов в подменю... Чтоб было проще понять, могу описать структуру меню... Само меню состоит из одной строки, которая распадается на 10 ее элементов, каждый из них еще на 4-8 элементов подменю... Вот все эти названия, кроме названия меню, и нужно загрузить в ListBox... Благодарствую, если поможешь smile

Автор: bems 21.3.2006, 16:09
тек бы и сразу. А то в "опере", блин. Ну я начал прикапываться к чужому меню. Ща примерчик налабаю

Автор: ChOrT 21.3.2006, 16:16
Да просто тот довел сверху, мощьно, сложно блин... придрался, как будто я прикол какой написал там smile

Автор: bems 21.3.2006, 16:22
Код

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

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items);
end;
только pm - TPopupMenu, lb - TListBox
Добавлено @ 16:24
Цитата(ChOrT @ 21.3.2006, 16:16 Найти цитируемый пост)
тот довел сверху, мощьно, сложно блин...
а "распадающиеся меню" - это и правда мощно smile

Автор: ChOrT 21.3.2006, 16:34
Ух ты [censored 2] , и правда работает... smile Спасибо...
Цитата

а "распадающиеся меню" - это и правда мощно  smile

Ну так как же это у вас, интеллектуалов, называется то? Научи, чтоб я больше так мощно не писал...

Автор: MIX55 21.3.2006, 17:38
Цитата

Ну так как же это у вас, интеллектуалов, называется то? Научи, чтоб я больше так мощно не писал...

скорее всего выпадающее

Автор: ChOrT 21.3.2006, 20:24
Слушай, bems, а как с твоим кодом загружать не все подразделы моего меню, а например только 6,7,8... или 2,3... просто я что-то не догоняю его вообще smile

Автор: bems 22.3.2006, 18:34
Цитата(ChOrT @ 21.3.2006, 20:24 Найти цитируемый пост)
6,7,8... или 2,3
это пункты которые надо вывести или разделы из которых вывести подпункты?

Автор: ChOrT 22.3.2006, 21:22
Нет, 6,7,8 - это 3 подраздела меню, из которых надо загрузить всю информацию...

Автор: bems 22.3.2006, 21:27
ну если их всего 2-3, то вызывай EnumerateMenuItems для каждой:
Код

EnumerateMenuItems(MenuItem6);
EnumerateMenuItems(MenuItem7);
EnumerateMenuItems(MenuItem8);

ну только итемы твои

Автор: ChOrT 22.3.2006, 21:42
Точно... smile А можно, чтобы в цикле загружались все, кроме 1 подменю?

Автор: 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);
end;

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

Примерно так.
Только если ты будешь меня спрашивать о каждом изменении кода, то свою программу будешь до пенсии писать.
Легче будет понять как это работает и изменять все самому. Что не ясно - спрашивай.
Цитата(ChOrT @ 21.3.2006, 20:24 Найти цитируемый пост)
а как с твоим кодом ... просто я что-то не догоняю его вообще

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

Автор: ChOrT 22.3.2006, 22:23
Ничего не ясно, вот... smile Думал спрошу что не понимаю, а ты тут такие шняги выкинул, вообще запутал... А сам бы я это написал... Написал бы сам, только строк так в 100 smile Потому что не могу никак разобраться в циклах с этими индексами тупыми... smile
А ты асю когда-нибудь включаешь вообще? Напиши мне плиз, или включи хотя бы...

Автор: bems 23.3.2006, 16:28
Цитата(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
асю вечером посмотрю

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)