Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Копирование меню в ListBox, Копирование меню в ListBox...Как? 
V
    Опции темы
ChOrT
Дата 19.3.2006, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Кто скажет, как скопировать в ListBox распадающееся меню (название его разделов, без названия самого меню)?... С обычным меню получается, с распадающимся никак...
PM MAIL WWW ICQ   Вверх
ChOrT
Дата 21.3.2006, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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

smile Соответственно распадающееся - необычное, нераспадающееся - обычное... С многоуровневым, короче, не получается... С каскадным... Состоящим из 3-х и более уровней... smile
Если непонял опять, то на пальцах уже показать не смогу, увы... Как скопировать и что такое ListBox объяснить не надо, надеюсь? smile
PM MAIL WWW ICQ   Вверх
bems
Дата 21.3.2006, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 88
Что не получается? Как это выглядит(и чем отличается от того, как должно выглядеть)?
И код покажи


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ChOrT
Дата 21.3.2006, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Блин, забыл... Меню - это, к примеру в опере, такая панелька с кнопочками вверху окна... При нажатии на кнопочки, вылетают разделы этого самого меню... Тобиш, если меню 3-х уровневое, то при подведении крысы к разделу, помеченному черной стрелочкой (справа от раздела), медленно, но верно, выползает еще один список... smile
PM MAIL WWW ICQ   Вверх
bems
Дата 21.3.2006, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



--------------------
Обижено школьников: 8
PM MAIL   Вверх
ChOrT
Дата 21.3.2006, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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
PM MAIL WWW ICQ   Вверх
bems
Дата 21.3.2006, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 88
тек бы и сразу. А то в "опере", блин. Ну я начал прикапываться к чужому меню. Ща примерчик налабаю


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ChOrT
Дата 21.3.2006, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Да просто тот довел сверху, мощьно, сложно блин... придрался, как будто я прикол какой написал там smile
PM MAIL WWW ICQ   Вверх
bems
Дата 21.3.2006, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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

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



--------------------
Обижено школьников: 8
PM MAIL   Вверх
ChOrT
Дата 21.3.2006, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ух ты [censored 2] , и правда работает... smile Спасибо...
Цитата

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

Ну так как же это у вас, интеллектуалов, называется то? Научи, чтоб я больше так мощно не писал...
PM MAIL WWW ICQ   Вверх
MIX55
Дата 21.3.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


много работы
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: 3
Всего: 4
Цитата

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

скорее всего выпадающее
--------------------
Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e
PM MAIL ICQ   Вверх
ChOrT
Дата 21.3.2006, 20:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Слушай, bems, а как с твоим кодом загружать не все подразделы моего меню, а например только 6,7,8... или 2,3... просто я что-то не догоняю его вообще smile
PM MAIL WWW ICQ   Вверх
bems
Дата 22.3.2006, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 88
Цитата(ChOrT @ 21.3.2006, 20:24 Найти цитируемый пост)
6,7,8... или 2,3
это пункты которые надо вывести или разделы из которых вывести подпункты?



--------------------
Обижено школьников: 8
PM MAIL   Вверх
ChOrT
Дата 22.3.2006, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нет, 6,7,8 - это 3 подраздела меню, из которых надо загрузить всю информацию...
PM MAIL WWW ICQ   Вверх
bems
Дата 22.3.2006, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 88
ну если их всего 2-3, то вызывай EnumerateMenuItems для каждой:
Код

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

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


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1190 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.