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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка понятная, но как исправить? 
V
    Опции темы
Nic442
Дата 30.4.2006, 02:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
РИСУЮ

ФАЙЛ--> REOPEN1--> ЕГО ПОДМЕНЮ
                                           |
TOLLBUTTON--------->Показывается подменю 
PM MAIL   Вверх
Демо
Дата 30.4.2006, 02:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Цитата(Sunvas @  30.4.2006,  02:45 Найти цитируемый пост)
один пункт меню


Тогда понятно.

Вот возьми обратно исправленный проект:

Добавлено @ 02:48 
Цитата(Nic442 @  30.4.2006,  02:47 Найти цитируемый пост)
TOLLBUTTON--------->Показывается подменю 


Ясно, у тебя другая ситуация. Минут через 5 попробую решить такую же задачку. 

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  nn.zip 3,27 Kb


--------------------
    
PM MAIL ICQ Skype   Вверх
Sunvas
Дата 30.4.2006, 02:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Nic442 @  30.4.2006,  02:47 Найти цитируемый пост)
РИСУЮ

Ясно, ясно! У меня просто и ща мозги кипят от чего же так..

Добавлено @ 02:50 
Цитата(Nic442 @  30.4.2006,  02:44 Найти цитируемый пост)
Чего-то не кочаются примеры... 

а ты правой кнопкой мыши и "сохранить объект как.."

Цитата(Демо @  30.4.2006,  02:45 Найти цитируемый пост)
По разному навешены пункты меню, и связка не та, что нужно.

Сможешь исправить?

Добавлено @ 02:53 
Демо, в моем коде добавить onclick это немного не то... 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Nic442
Дата 30.4.2006, 03:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Да вот  
Да это я файл хотел прикрепить. Чего-то не прикрепился. 
Но в общем так как у тебя только при нажатии на toolbutton показывается submenu1 и   submenu2 

Это сообщение отредактировал(а) Nic442 - 30.4.2006, 03:06
PM MAIL   Вверх
Sunvas
Дата 30.4.2006, 03:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Nic442 @  30.4.2006,  03:02 Найти цитируемый пост)
Да вот  

Это к чему? 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Демо
Дата 30.4.2006, 03:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Nic442, 
У тебя OnClick на подпункты меню навешен?

Добавлено @ 03:10 
Уже понял.. 


--------------------
    
PM MAIL ICQ Skype   Вверх
Nic442
Дата 30.4.2006, 03:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Конечно, ведь они через меню работают.

Reopen1.Items[c].OnClick:=Reopen1_files;
 
PM MAIL   Вверх
Sunvas
Дата 30.4.2006, 03:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Nic442 @  30.4.2006,  03:02 Найти цитируемый пост)
Но в общем так как у тебя только при нажатии на toolbutton показывается submenu1 и   submenu2

Но мой глюк так и остался глюком.. 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Nic442
Дата 30.4.2006, 03:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Да и глюк такой же.  smile 
Я ещё пробовал через Toolbutton.MenuItem.IndexOf..... Но так тоже не катит

Добавлено @ 03:23 
Демо  Так попробовал или как?? Какие результаты? 
PM MAIL   Вверх
Демо
Дата 30.4.2006, 03:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Вот работающий вариант на OnClick:
Неохота разбираться, глюк это Delphi или так и должно работать...

Код

var
  m: TMenuItem;
begin
  m := Sender as TMenuItem;
  showmessage(inttostr(m.Parent.IndexOf(m)));
 


--------------------
    
PM MAIL ICQ Skype   Вверх
Nic442
Дата 30.4.2006, 03:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Можешь написать работающий вариант, чтобы он удалял пункт и всталял в начало без message 
PM MAIL   Вверх
Демо
Дата 30.4.2006, 03:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Цитата(Nic442 @  30.4.2006,  03:34 Найти цитируемый пост)
Можешь написать работающий вариант, чтобы он удалял пункт и всталял в начало без message 

Так сейчас IndexOf не -1 возвращает...

Добавлено @ 03:39 
Код

var
  m: TMenuItem;
  ParentItem: TMenuItem;
begin
  m := Sender as TMenuItem;
  ParentItem := m.Parent;
  ParentItem.Delete(ParentItem.IndexOf(m));
  ParentItem.Insert(0,m);

 


--------------------
    
PM MAIL ICQ Skype   Вверх
Nic442
Дата 30.4.2006, 03:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
ВООООООООООООООООООООООООООООООООо !!!!!!!!!!!!!!!! ЗАРАБОТАЛО КАЖИСЬ... smile 
СПАСИБО ВАМ ОБОИМ. Я уже хотел сдаваться и спать....

Добавлено @ 03:49 
ТЕМУ ПОМЕЧАЮ :-) 
PM MAIL   Вверх
Страницы: (3) Все 1 2 [3] 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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