Código Delphi [-] var Item: TMenuItem; begin Form2.Show; Item:= TMenuItem.Create(MainMenu1); Item.Caption:= 'Opcion1'; Ventanas.Insert(Ventanas.Count, Item); end;
var Item: TMenuItem; begin Form2.Show; Item:= TMenuItem.Create(MainMenu1); Item.Caption:= 'Opcion1'; Ventanas.Insert(Ventanas.Count, Item); end;