الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن اضافة items إلى MainMenue

مغلق
بدأه asrocks في 8 يونيو 2006 · 4 رد · 510 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف استطيع اضافة items جديد إلى MainMenue برمجياً و ليس يدوياً

و السلام

#2

:rolleyes: :rolleyes:

#3

يبدو أنك لم تتطلع على Delphi Help بشكل جيد

في TMenu الخاصية Items ستجد مثال على إضافة عناصر لقائمة منسدلة في runtime . بنفس الطريقة مع إضافة تغييرات يمكنك استخدامها لإضافة عناصر للقائمة ...

بالامكان أيضا استخدام API function لعمل ذلك .. راجع Menu Functions في MSDN ..

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#4

السلام عليكم,,

اقتباس
كيف استطيع اضافة items جديد إلى MainMenue برمجياً و ليس يدوياً

var
  N_Item: TMenuItem;
begin
  N_Item := TMenuItem.Create(self);
  N_Item.Caption := 'File';
  MainMenu1.Items.Add(N_Item);
  N_Item.Add(TMenuItem.Create(Self));
  N_Item := N_Item.Items[0];
  N_Item.Caption := 'Open';
  N_Item.Add(TMenuItem.Create(Self));
  N_Item.Add(TMenuItem.Create(Self));
  N_Item.Add(TMenuItem.Create(Self));
  N_Item.Items[0].Caption := 'Open File';
  N_Item.Items[1].Caption := 'Exit';

..................بسم الله الرحمن الرحيم..................

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان

.............................................................................................................................

لنبدا دورة دلفي

سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال

التحكم بمنفذ الطابعة عن طريق الدلفي

سلسلة دروس تعلم قواعد بيانات Midas

هيا لنبدأ بالApi

أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة

مكتبه الأكواد, أكواد وبرامج دلفي

.............................................................................................................................

18_07_05_10_53_18_1121752398da3wa_18.gif

#5

انظر هذا الموضوع فيه مثال يوضح طريقة عمل ذلك

/index.ph...ndpost&p=347892

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

هذا الموضوع مغلق.

مواضيع مشابهة