كيف يمكننا اضافة كل Item الموجود في ComoBox الى TMenuItem

[M_Mori2010]

السلام عليكم ورحمة الله وبركاته ,,,

كيف يمكننا اضافة كل عناصر Item الموجودة في ComboBox الى TMenuItem

شكراً لكم

[m.rabee]

وعليكم السلام ورحمة الله وبركاته

كود :

var MyMenu : TMenuItem; I : Integer; begin for I := 0 to Combobox1.Items.Count - 1 do Begin MyMenu := TMenuItem.Create(Self); MyMenu.Action := Act1; MyMenu.Caption := Combobox1.Items[i]; mm1.Items[1].Add(MyMenu); End; end;

[الحويطي]

مرفق مثال باستخدام PopupMenu

اضغط Button وبعدها اضغظ الزر الايمن للفأرة على الفورم