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


Автор: flomaster 8.10.2009, 17:31
Динамически создаю и заполняю меню в дочерней 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 9.10.2009, 07:42
Вот еще момент.

Код

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;

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