Delphi firemonkey Как удалить программный код программным путем?

Question

Как удалить элемент меню, который я динамически добавил в меню?

добавить динамически пункты меню с, например:

m:=TMenuItem.Create(nil); 
m.Text:='bla bla bla'; 
mnuMain.AddObject(m); 

Я не мог найти любую функцию, чтобы удалить запись снова. Я попробовал удалить, бесплатно, removeobject и т. Д., И элемент все еще не удаляется и все еще отображается. Что это за трюк?

Answer 1

Если вы добавляете элемент следующим образом:

var 
    M : TMenuItem; 
begin 
    M := TMenuItem.Create(nil); 
    M.Text := 'Bla Bla Bla'; 
    MenuBar1.AddObject(M); 

Тогда вы просто придав ему родитель, просто установить родитель из пунктов меню в nil ARC затем пикировать и делать все остальное, видя, как больше нет ссылок на объект

Просто напишите цикл, чтобы пройти, и установите для всех родителей значение nil/Или, если вы также нацеливаете Windows (или только Windows) в свой код, используйте DisposeOf или использовать директивы компилятора

var 
    I: Integer; 
begin 
    for I := MenuBar1.ItemsCount-1 downto 0 do 
    begin 
     {$IFNDEF AUTOREFCOUNT} 
     MenuBar1.Items[I].disposeOf; 
     {$ELSE} 
     MenuBar1.Items[I].parent := nil; 
     {$ENDIF} 
    end; 
end; 

Answer 2

Я столкнулся с той же проблемой: TMenuItem.RemoveObject не работает, а частный член FContent TMenuView недоступен без трюков над RTTI. Вот почему я построю свой обходной путь, используя StringList, который хранит оставшееся меню дочерних элементов, прежде чем я называю TMenuItem.Clear:

function RemoveFromMenu(mnuMain: TMenuItem; const MenuText: string); 
var 
    list: TStringList; 
    c: integer; 
    Menu: TMenuItem; 
begin 
    list := TStringList.Create; 
    try 
    for c := 0 to mnuMain.ItemsCount - 1 do 
    if mnuMain.Items[c].Text <> MenuText then 
     list.Add(mnuMain.Items[c].Text); 
    mnuMain.Clear; 
    for c := 0 to list.Count - 1 do 
    begin 
     Menu := TMenuItem.Create(self); 
     Menu.Text := list[c]; 
     Menu.OnClick := mnuMainSubMenuClick; // The menu event handler 
     mnuMain.InsertObject(0, Menu); 
    end; 
    finally 
    list.Free; 
    end; 
end; 

В случае, если ваше вложенное меню есть для каждого пункта меню собственного обработчика меню, чем вы также сохраняют этот обработчик событий. В таких ситуациях общий список TMenuItem (TList < TMenuItem>) был бы лучшим подходом, чем использование строкового списка.