popupmenu, menuitems y eventos
Cordial Saludo,
Solicito colaboración para resolver el siguiente tema: Quiero generar un menú con base en los PopUpMenus contenidos en un Form. Ej. (POPUPMENU) Menu1 -> SubMenu1 --------> SubMenu2 Menu2 -> SubMenu3 --------> SubMenu4 -> SubMenu5 --------> SubMenu6 Menu3 -> SubMenu7 Menu4 El menú que se quiere crear es con un Ribbon (no fue decisión mia). La idea es que todos los menús y submenús que tengan eventos, se vuelvan botones en el ribbon. Lo que no tengo ni idea es como hacer para leer la jerarquía de menús y submenús para q con los menús armar grupos y con los submenús los botones de cada grupo y además asignarle a cada OnExecute de cada uno de los TAction los eventos OnClick del SubMenú. Agradezco de Antemano toda la colaboración que me puedan brindar. |
Cordial Saludo,
Logré realizar el armado del Menú Ribbon, pero ahora tengo problemas de Access Violation cuando cierro el form (MDICHILD). A continuación pongo el código para ver si alguien me puede indicar en dónde estoy cometiendo un error. Cabe anotar que en el evento close del formulario libero los objetos. Los objeto globales son: Código:
crpOpPagina: TCustomRibbonPage; Código:
var |
Cordial Saludo,
Ya encontré el error. Debe ser causa del cansancio por tanto trabajo que tengo. En las referencias a los array me estoy pasando por uno los índices: Código:
//En vez de Muchas gracias. |
Movido de foro.
|
La franja horaria es GMT +2. Ahora son las 21:05:37. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi