TPopupMenu [TPopupMenu] Как создать в runtime элемент меню TPopupMenu?

[Pavel Vasilev]

Как добавлять новыe пункты меню (в VCL был NewItem)  в TPopupMenu в режиме runtime в FMX?

В режиме проектирования всё понятно.

Спасибо.

 

[Brovin Yaroslav]

Например так:

var
  RootMenuItem: TMenuItem;
  MenuItem: TMenuItem;
begin
  RootMenuItem := TMenuItem.Create(nil);
  RootMenuItem.Text := 'Item level 1';
  PopupMenu1.AddObject(RootMenuItem);

  MenuItem := TMenuItem.Create(nil);
  MenuItem.Text := 'Item level 2';
  RootMenuItem.AddObject(MenuItem);
end;

[Pavel Vasilev]

Хорошо, но есть одна деталь, 
В VCL добавляемый пункт , например, MenuItem, имел свойство ImageIndex для указания номера из, скажем, TImageList1, теперь есть лишь BitMap. 
Как из какого-то списка (TStyleBook?) загрузить нужную иконку для нового пункта  меню в Bitmap?
Или можно только загружать битмапы иконок  каждый по отдельности?

Изменено 19 января, 2015 пользователем Brovin Yaroslav

[Brovin Yaroslav]

Вот здесь "Есть ли в fmx класс TImageList?" рассказывается, как эмулировать в FMX работу отсутствующего TImageList. До версии XE7 включительно, пока только так.

[ruslan]

а ничего что в рантайме битмапы, которые на менюитемах не отрисовываются вообще ?

только если на канве их самому рисовать в OnPaint