تشارك هذه المقالة كيفية استخدام مكون القائمة TMainMenud كمرجع لك، والمحتوى المحدد هو كما يلي
مكون القائمة TMainMenu
لإنشاء قائمة، انقر نقرًا مزدوجًا فوق TmenuMain ثم انقر فوق Caption لإضافة عنصر قائمة.
لإضافة خط فاصل في القائمة، ما عليك سوى إضافة "-" لإضافة خط فاصل.
تصميم القائمة المتتالية
انقر بزر الماوس الأيمن فوق الماوس وحدد عنصر القائمة "إنشاء قائمة فرعية" في القائمة المنبثقة.
تصميم وظيفة الراديو
لتحديد خاصية RadioItem في عنصر القائمة المصمم، قم بتعيين الخاصية Checked إلى True
تصميم وظيفة التحقق
في عنصر قائمة التصميم، حدد خاصية RadioItem إلى False وخاصية Checked إلى True.
إنشاء القوائم بشكل ديناميكي
كود المصدر هو كما يلي
الإجراء TForm1.Button1Click(Sender: TObject);var MainMenu: TMainMenu; MenuItem: TMenuItem;begin // إنشاء القائمة الرئيسية MainMenu:=TMainMenu.Create(self); .Create(MainMenu); MenuItem.Caption:='ملف'; MainMenu.Items.Add(MenuItem); // إنشاء قائمة فرعية جديدةCreateMenuItem:=TMenuItem.Create(MainMenu); MenuItem.Caption:='New'; MainMenu.Items[0].Add(MenuItem); القائمة الفرعية في MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:='Open'; MainMenu.Items[0].Items[0].Add(MenuItem); .Items[0].Add(MenuItem);end;end.
إضافة أيقونة إلى القائمة الرئيسية
لإضافة رمز إلى القائمة، استخدم أولاً مكون TImagaList لتحديد رمز القائمة، وقم بتعيين خاصية الصور في القائمة على ImageList1، ثم حدد فهرس الأيقونات المراد إضافته. كما هو موضح في الصورة:
ما ورد أعلاه هو المحتوى الكامل لهذه المقالة، وآمل أن يكون مفيدًا للدراسة للجميع، وآمل أيضًا أن يدعم الجميع موقع Wulin.com.