Работа с дропдаун меню

[Ky3Heu,]

Создаю динамическое многоуровневое дропдаун меню

    //Создаем дропдаун меню по службам
  for I := 0 to DMF.sCeh.RecordCount-1 do
  begin

    mlvl1 := TMenuItem.Create(self);

    ab := Trim(DMF.sCehABBR.Value);

    DMF.sDownL2.Close;
    DMF.sDownL2.SQL.Clear;
    DMF.sDownL2.SQL.Add('Select * from DownLvl2 where abbr = :ab');
    DMF.sDownL2.Parameters.ParamByName('ab').Value := ab;
    DMF.sDownL2.Open;

    dl := DMF.sCehDownLvl.Value;

    mlvl1.Caption := Trim(DMF.sCehABBR.Value);
    RegF.sObj.Items.Add(mlvl1);
    mlvl1.OnClick := self.MenuSelect;

    for dl2 := 0 to DMF.sDownL2.RecordCount-1 do
    begin

    mlvl2         := TMenuItem.Create(self);
    mlvl2.Caption := Trim(DMF.sDownL2LVL2.Value);
    mlvl1.Add(mlvl2);
    mlvl2.OnClick := self.SubMenuSelect;

    l2 := Trim(DMF.sDownL2LVL2.Value);

    if dl = 3 then
    begin

      DMF.sDownL3.Close;
      DMF.sDownL3.SQL.Clear;
      DMF.sDownL3.SQL.Add('Select * from DownLvl3 where downlvl2 = :dl2');
      DMF.sDownL3.Parameters.ParamByName('dl2').Value := l2;
      DMF.sDownL3.Open;

        for j := 0 to DMF.sDownL3.RecordCount-1 do
        begin
        mlvl3 := TMenuItem.Create(self);
        mlvl3.Caption := Trim(DMF.sDownL3DownLvl3.Value);
        mlvl2.Add(mlvl3);
        mlvl3.OnClick := self.L3MenuSelect;
        DMF.sDownL3.Next;
        end;//for j := 0 to DMF.sDownL3.RecordCount-1

      DMF.sDownL2.Next;
    end;//for dl2 := 0 to DMF.sDownL2.RecordCount-1

    end;//if DMF.sCehDownLvl.Value = 3

   DMF.sCeh.Next;

  end; //for I := 0 to DMF.sCeh.RecordCount-1

Все работает оч хорошо, но проблема в том, что я теперь не знаю как очистить созданное попупменю

[Баламут]

Не оно?

  for i := 0  to PopupMenu1.Items.Count - 1 do PopupMenu1.Items[i].Free;

[Ky3Heu,]

Это и было у меня....

for i := 0  to Sobj.Items.Count-1  do
Sobj.Items[i].Free;

пробовал и так..

Sobj.Items.Items[i].Free;

бесполезно.. Менюшка состоит из нескольких верхних уровней, которые в свою очередь могут иметь одну или две сабменюшки.. Этот код удаляет только 1 верхний уровень.. а на втором (верхнем уровне) выдает ошибку List Index Out of bounds (1).

[Баламут]

Скинь сюда исходник. У меня что-то не получается воспроизвести ошибку. Все прекрасно работает.

Хотя стой, нет. Меню было слишком простым. Щас гляну дальше

[evg_m]

Этот код удаляет только 1 верхний уровень.. а на втором (верхнем уровне) выдает ошибку List Index Out of bounds (1).

удалять надо начинать с нижних уровней (с подменю)
и перебор с конца списка.

for i := Sobj.Items.Count-1  downto 0 do
Sobj.Items[i].Free;

[Баламут]

   PopupMenu1.Items.Clear;

Ну или код от evg_m.