Динамическое создание popum menu c radioitem

[phpmullin]

while BASS_GetDeviceInfo(I, ADeviceInfo) do
begin
It2:=TMenuItem.Create(self);
it2.Caption:=ADeviceInfo.name;
It2.OnClick := ClickSound;
It2.RadioItem := true; // не создается этот параметр
It2.Tag:=i-1;
MainMenu1.SoundDefault.Items.add(it2);
it2:=nil;
i := i + 1;
end;

Создаю меню динамически. запускаю все кулл, но не создается радиобаттон на кнопках. Что не так? Спасибо за советы!

[min@y™]

GroupIndex? Вот кусок моего кода (рабочий):

mi:= FSystemMenu.CreateMenuItem();
                 smi.Caption:= si.Name;
                 smi.Hint:= files[idx];
                 smi.RadioItem:= true;
                 smi.GroupIndex:= 1;

                 if added mod 16 = 15
                   then smi.Break:= mbBarBreak;

                 smi.Tag:= idx + 1;
                 smi.OnClick:= SkinMenuClick;

[northener]

GroupIndex?

+1
Именно. Радиокнопки работают только тогда, когда их более одной. А поскольку на форме может быть много разных радиокнопок, и которые относятся к разным функциям программы, то их нужно выделять в группы.

[phpmullin]

Сообщение от min@y™

GroupIndex? Вот кусок моего кода (рабочий):

mi:= FSystemMenu.CreateMenuItem();
                 smi.Caption:= si.Name;
                 smi.Hint:= files[idx];
                 smi.RadioItem:= true;
                 smi.GroupIndex:= 1;

                 if added mod 16 = 15
                   then smi.Break:= mbBarBreak;

                 smi.Tag:= idx + 1;
                 smi.OnClick:= SkinMenuClick;

Понимаю принцип, спасибо за пример, НО вот код:

while BASS_GetDeviceInfo(I, ADeviceInfo) do
  begin
      It2:=TMenuItem.Create(self);
      it2.Caption:=ADeviceInfo.name;
      It2.OnClick := SoundDef;
      It2.RadioItem:=true;
      It2.GroupIndex:=1;
      It2.Tag:=I-1;
      MainMenu1.soundDefault.Items.add(it2);
      it2:=nil;
    i := i + 1;
  end;

Я читал про гроупиндекс ставил 1, не выходит. Проверил по клику через Label.caption:=(Sender as TMenuItem).GroupIndex;
Выводит у всех 1. Что еще можете посоветовать?

[min@y™]

Что еще можете посоветовать?

Накидай за 3 минуты тестовый прожэкт и выклади сюда исходник. Будем посмотреть.
В чудеса я не верю (хотя сам волшебник). Но у меня-то работает! ЧЯДНТ?

[phpmullin]

Embarcadero SE10, win7 x64

[min@y™]

Зачем это в OnPopup?

while Form1.PopupMenu1.Items.Count>0 do
    Form1.PopupMenu1.Items.Items[0].Free;

[phpmullin]

Сообщение от min@y™

Зачем это в OnPopup?

while Form1.PopupMenu1.Items.Count>0 do
    Form1.PopupMenu1.Items.Items[0].Free;

Блин.... и вправду.. яж сначала чищу все, а потом заново записываю. Естественно у меня не будет выделенного элемента. Мнда.... Спасибо) Теперь думаю как при открытии popup перерисовывалось все...
Потому что при повторном открытии popup у меня создаются копии...

[min@y™]

Потому что при открытии popup у меня создаются копии...

Какие копии? Чего копии?

[phpmullin]

Сообщение от min@y™

Какие копии? Чего копии?

Обновил запись выше(добавил изображение).