Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

Исключение при обращении к главному меню [Delphi, Windows]


drmefisto ©   (16.09.11 13:49

Здравствуйте! У меня такая беда:
не могу сказать точно после чего (но скорее всего после работы с поинтерами), при обращении через код к элементам главного меню срабатывает исключение в выделенном жирным фрагменте этой функции, юнита KOL.pas:
 function SearchItems( ParentMenu: PMenu; var FromIdx: Integer ): PMenu;
 var I: Integer;
 begin
   Result := ParentMenu;
   if Id = HMenu( FromIdx ) then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   if (Id >= 4096) and (DWORD( ParentMenu.FId ) = Id) then Exit; {>>>>>>>>>>>>}
   if ParentMenu.FMenuItems = nil then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   for I := 0 to ParentMenu.FMenuItems.FCount-1 do
   begin
       Inc( FromIdx );
       Result := SearchItems( ParentMenu.FMenuItems.Items[ I ], FromIdx );
       if Result <> nil then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   end;
   Result := nil;
 end;

Что делать я даже не догадываюсь!


QAZ   (16.09.11 21:49[1]

пошаговая отладка


Mr   (19.09.11 10:34[2]

Скорее всего ParentMenu или nil или мусор?


rdnks   (26.09.11 17:29[3]

с любым меню наткнулся на другую назойливую проблему - оставляют мусор в виде строк (эти строки по всей видимости есть названия айтимов меню) после уничтожения. Результат одинаков что при autofree, что вручную. Сокрушительный репорт от fastmm4. Пока копаю, решений нет. Kol - пи, win7, d7.


Shuuma   (25.11.15 02:39[4]

Удалено модератором


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо