دوست عزیز
برای اضافه کردن یک ساب منو به یک منو آیتم باید اول اون رو تولید و عنوانش رو مقدار دهی کنی و سپس با متد 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;
موفق باشی