VPF::Не отображается динамически созданный пункт меню

flomaster

Дата 8.10.2009, 17:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Динамически создаю и заполняю меню в дочерней MDI - форме.
Создаю несколько пунктов, в некоторые добавляю подпункты (вложенные меню).
Пункты меню верхнего уровня, создаваемые после вложенных меню, не отображаются.
Если к такому пункту прикрутить вложенный пункт, они будут отображены.
В чем дело, где править руки и куда вертеть головой?

Код отладочный, кое-что опущено.

Код


function TChildForm.ViewMenu() : TMainMenu;
var
  itm, gitm : TMenuItem;
begin

  gitm :=TMenuItem.Create(self);
  gitm.Caption:='Вид';
  Menu.Items.Insert(0, gitm);

  itm :=TMenuItem.Create(self);
  itm.Caption:='Закрепить столбцы';
  gitm.Insert(0, itm);

  gitm :=TMenuItem.Create(self);
  gitm.Caption:='!!!';
  Menu.Items.Insert(0, gitm); // НЕ ОТОБРАЖАЕТСЯ... :-(

  //Если раскоментировать блок, то пункт "!!!" отобразится с вложенным подпунктом
{  itm :=TMenuItem.Create(self);
  itm.Caption:='+++';
  gitm.Insert(0, itm);}
end;

Это сообщение отредактировал(а) flomaster - 8.10.2009, 21:19

flomaster

Дата 9.10.2009, 07:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот еще момент.

Код


function TChildForm.ViewMenu() : TMainMenu;
var
  itm, gitm : TMenuItem;
begin
  ...
  gitm :=TMenuItem.Create(self);
  gitm.Caption:='Вид';
  Menu.Items.Insert(0, gitm);
  itm :=TMenuItem.Create(self);
  itm.Caption:='Закрепить столбцы';
  gitm.Insert(0, itm);
  gitm :=TMenuItem.Create(self);
  gitm.Caption:='!!!';
  Menu.Items.Insert(0, gitm); // НЕ ОТОБРАЖАЕТСЯ... :-(

  itm :=TMenuItem.Create(self);
  itm.Caption:='+++';
//  gitm.Insert(0, itm);    //Если раскоментировать, то пункт "!!!" нормально отобразится с вложенным подпунктом
  Menu.Items.Insert(0, itm); // Вставляем еще один (т.е. второй подряд) пункт в надменю. Отобразятся сразу оба "!!!" и "+++"
  //Если еще добавлять пункты в надменю, тоже нормально сразу видны
end;

Это сообщение отредактировал(а) flomaster - 9.10.2009, 07:43

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