, hvordan til at skabe og tilføje en menuitem på runtime?,,type,, TForm1 = class(TForm),, ...,, private,, procedure MenuClick(Sender: TObject);,, ...,,, NewMenu := TMenuItem.Create(nil); //Self not needed,, with NewMenu do,, begin,, Caption := '&Test';,, OnClick := MenuClick; //,, end;,, MainMenu1.Items.Add(NewMenu); //New Main menu,, MainMenu1.Items[0].Add(NewMenu); //New menuitem,,, NewItem,, NewLine,, MewMenu,, NewPopupMenu,, NewSubMenu,,, MainMenu1.Items.Add(NewItem('&Test', 0, True, True, nil, 1101, ''));,, MainMenu1.Items[0].Add(NewSubMenu('&Test', 0, 'AName2',,, [NewItem('&Test1', 0, True, True, nil, 0, ''),, , , NewItem('&Test2', 0, True, True, nil, 0, '')]));,, MainMenu1.Items[0].Add(NewLine),,, med newpopupmenu (self, ole, paleft,,,, newitem ("& test1, 0, sandt, 0, 0 ''), newitem (" & test2, 0, sandt, 0 0, ")] gør, pop - up - (10), og