ساب منو

[ghaum]

سلام

من کدی را احتیاج دارم که بتواند زیر منو را پیاده سازی کند
کد مریوط به ساختن منو را پیدا کردم ولی کد زیر منو را نیز احتیاج دارم

متشکرم

[Inprise]

دوست عزیز

برای اضافه کردن یک ساب منو به یک منو آیتم باید اول اون رو تولید و عنوانش رو مقدار دهی کنی و سپس با متد Add از اون آیتمی که میخای ساب منو بهش اضافه بشه کار کنی . مثلا فرض کن منوی اصلی تو یک آیتم با عنوان N11 داره ( این میشه اصل منو ) و یک زیر منو با نام N21 ( این میشه یکی از آیتم های اصلی منو ) . حالا اگر بخاهی که یک ساب منو برای N21 درست کنی باید :




procedure TForm1.Button1Click(Sender: TObject);
var a:Tmenuitem; //sub menu baraye ezafe shodan
begin
a:=tmenuitem.create(mainmenu1); // tolid e item
a.Caption:='test';
n21.Add(a); //ezafe kardan be itemy ke
// mikhaahy be onvan e sub menu
end;


موفق باشی

[ghaum]

سلام

اگر می شود با زبان سی بیلدر توضیح دهید
متشکرم