Nuevas propiedades en un TMAinMenu

[[eduarcol]]

si mal no entiendo tu lo que quieres es que el componente TMainMenu en lugar de heredar los Items desde TMenuItem herede desde TMIMenuitem??

has logrado modificar el TMainMenu y ver donde se crean los nuevos TMenuItem y cambiar la clase alli??

[[José Luis Garcí]]

Creo que la cosa se esta liando y no me explico bien, lo que quiero es crear un nuevo componente para el club, basabndose en un MainMenu, con nuevas propiedades, las describo, pero tener en cuenta que es un boceto.

Propiedades comunes al componente(cuando lo añadimos al formulario)

LevelUser Integer (en el estableceremos el nivel del usuario actual del 1 al 5)
Level1 al 5 String (seran los niveles establecidos, en ellos pondremos los nombres de tipos de usuario, siendo en principio 1 Todos
y 5 Administrador)
Keyseg String (Ira la clave que podamos necesitar)
Messagekey String (Aqui ira el mensaje que nos mostrara en caso de solicitarse clave)

Propiedades comunes a las diferentes opciones del menu (cuando escribimos las opciones [Items] del menu en fase de diseño)

Level Integer (estara comprendido entre el uno y el cinco mirara más abajo comportamiento)
KeyItem Boolean (Si lo morcamo nos solicitara clave para acceder a el independiente del nivel de usuario)

Comportamiento

Al introducir en Leveluser un valor, entre 1 al 5 en el menu nos abilitara todos aquellos items que tengan en level el mismo, que en leveluser o inferio pero no los superiores, exeptundo aquellos que tengan el keyItem en true, en este caso no importa el nivel de usuario ya que nos solicitara la clave para acceder.

Espero la explicacion sea más coherente esta vez.

[[José Luis Garcí]]

He seguido buscando, he mirado el menu.pas y me pierdo, si a alguno se le ocurre una idea se agradeceria.

[[Chris]]

Lo que tedrás que hacer es derivar (hacer un decendiente) del TMenuItem, solo de esta forma podrás agregar las propiedades que necesites. Si no me equivoco, también tendras que hacer un decendiente de TMenu y TMainMenu y si lo necesitas de TPopupMenu, lo único que tendrías que cambiar es que en vez de utilizar TMenuItem utilize tu propia clase, p. ej. TmiMenuItem, TmiMenu, ....

[[José Luis Garcí]]

D&W He probado y nada, de echo desde el principio parte de un componente TMAinmenun, a la que quiero añadir las nuevas propiedades y no hay manera, si a alguien se le ocurre otra cosa, seguire, de todas maneras sigo investigando, y he visto por ahí, que los componantes que hayh no tienen propiedades nuevas, en la parte de los item, no creo que el problema sea el no poder, mas bien pienso que debe ser bastante complicado.

[[Lepe]]

He dado una visual muy por encima al menu.pas y el problema que veo está en el diseño de las clases.

Mira el componente TComboBoxEx (ComCtrls.pas) verás que tiene 2 propiedades: Items e ItemsEx, quizás puedas hacer algo parecido. Si no te apetece, creo que tendrías que empezar de cero el componente.

La clase TMenu ya publica la propiedad Items, de solo lectura y además accediendo directamente a su propiedad privada FItems:

Código Delphi [-]
  published
    property Items: TMenuItem read FItems;

Quizás los de Borland no quisieran que se derivase de ese componente, de ahí su implementación.

Saludos

[[José Luis Garcí]]

Garcias por tu pronta respuesta Lepe, pero me pregunto, seria posible modificar el archivo pas, añadir las propiedades en menu pas. pero es que me parce muy complejo, y me da pena desechar la idea ya que me parece la forma mas adecuada de implementar niveles de usuario en un programa, tal vez se me ocurre seria más facil en un ActionList?.