+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكننا اضافة كل Item الموجود في ComoBox الى TMenuItem (/showthread.php?tid=4784)
كيف يمكننا اضافة كل Item الموجود في ComoBox الى TMenuItem - M_Mori2010 - 10-12-2012
السلام عليكم ورحمة الله وبركاته ,,,
كيف يمكننا اضافة كل عناصر Item الموجودة في ComboBox الى TMenuItem
شكراً لكم
كيف يمكننا اضافة كل Item الموجود في ComoBox الى TMenuItem - m.rabee - 12-12-2012
وعليكم السلام ورحمة الله وبركاته
كود :
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;كيف يمكننا اضافة كل Item الموجود في ComoBox الى TMenuItem - الحويطي - 21-12-2012
مرفق مثال باستخدام PopupMenu
اضغط Button وبعدها اضغظ الزر الايمن للفأرة على الفورم