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

[min@y™]

Тык убери OnPopup событие-то, ёмаё! Добавляй/удаляй айтемы только при изменении конфигурации оборудования, а не при каждом тыке юзера.

[phpmullin]

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

Тык убери OnPopup событие-то, ёмаё! Добавляй/удаляй айтемы только при изменении конфигурации оборудования, а не при каждом тыке юзера.

Хорошо, если подключил допустим HDMI и программка моя определила при помощи "message WM_DeviceChange" изменения в устройстве то все перересует и опять будет 25. Поэтому я сейчас сделал так.

Добавил глобальную переменную "DefSound". При нажатии на item

 
var i:TMenuItem;
begin
i:=(Sender as TMenuItem);
DefSound:=i.Tag;
 SoundDefault.Items[i.Tag].Checked:=true;
//.....тут что то делаю

процедура OnPopup.....(Sender: TObject);

  i := 1;
 while MainMenu1.soundDefault.Items.Count>0 do
 MainMenu1.soundDefault.Items.Clear;
  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;
 SoundDefault.Items[DefSound].Checked:=true;
end;

[min@y™]

while MainMenu1.soundDefault.Items.Count> 0 do
MainMenu1.soundDefault.Items.Clear;

Ну зачем всё через жопу-то?
Допустим, воткнул ты проектор в HDMI, девайс появился. Зачем весь список-то очищать и пересоздавать? Добавь один пункт и всё. А при отключении - найди соотв. пункт и удали. А то бардак и говнокод.

[phpmullin]

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

Ну зачем всё через жопу-то?
Допустим, воткнул ты проектор в HDMI, девайс появился. Зачем весь список-то очищать и пересоздавать? Добавь один пункт и всё. А при отключении - найди соотв. пункт и удали. А то бардак и говнокод.

Спасибо за советы.

[min@y™]

Спасибо за советы.

принято.