Динамическое PopupMenu...

← →
Dark Hunter © (2002-09-13 14:06) [0]

Помогите, пожалуйста:
Нужно вставить в подменю PopupMenu динамически формируемые пункты (если можно, то и про dxBarPopupMenu).
Спасибо.

← →
Игорь Шевченко © (2002-09-13 14:11) [1]

var
Item : TMenuItem;
begin
Item := TMenuItem.Create(Self);
Item.Name := "blahblah";
Item.Action := SomeAction;
PopupMenu.Items.Add(Item);
end;

← →
Dark Hunter © (2002-09-13 14:15) [2]

А если их таких много, и я не знаю, сколько их, то нужно использовать массив
Items: array of TMenuItem ?

Где-то так: (MI это TPopupMenu)

var
tm :TMenuItem;

tm:=TMenuItem.Create(MI);
tm.Caption:="hrhfh";
tm.OnClick:=myClick;
MI.Items.Add(tm);