Hvordan lage og legge en menyvalget under kjøring skriver TForm1 = klasse (TForm) ... privat prosedyre MenuClick (Sender: TObject); ... NewMenu: = TMenuItem.Create (null); //Selv ikke nødvendig med NewMenu gjør begynne Caption: = "& Test '; Onclick: = MenuClick; //End; MainMenu1.Items.Add (NewMenu); //New Hovedmeny MainMenu1.Items [0] .Legg (NewMenu); //New menuitemNewItemNewLineMewMenuNewPopupMenuNewSubMenuMainMenu1.Items.Add (NewItem ('& Test', 0, Sanne, Sanne, nil, 1101, '')); MainMenu1.Items [0] .Legg (NewSubMenu ('& Test', 0, 'AName2', [NewItem ('& Test1', 0, Sanne, Sanne, null, 0, ''), NewItem ('& Test2 ', 0, Sanne, Sanne, null, 0,' ')])); MainMenu1.Items [0] .Legg (linjeskift); med NewPopupMenu (selv, "ole", paleft, sant, NewItem ('& Test1', 0, Sanne, Sanne, null, 0, ''), NewItem ('& Test2', 0, Sanne, Sanne, nil , 0, '')]) gjør Popup (10, 10); Anmeldelser