Nuevas propiedades en un TMAinMenu

[[José Luis Garcí]]

Alguno sabe como crear nuevas propiedades en el Item de un TmaninMenu, para poder terminar un componente, ya que añado las nuevas propiedades y si se me crea en en la parte principal, pero dos de las propiedades nuevas dben ir en dentro de los Item del mainMenu, pero no sucede, he mirado la ayuda y me remite al metodo add de la propiedad TMenuitem, pero no logro que funcione, funcionaria en la creacion de un componente?

No es que dejara los otros componentes parados, pero como me he bloqueado con ellos, e preferido dejarlos parados de momento.

Gracias y un saludo por vuestra ayuda.

P.D. Si podeis poner un ejemplo.

[neuronic]

buenas mi primera aportacion, espero que no sea la ultima,xd, no ser si soluciona tu poblema

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var item: TMenuItem;
        item2: TMenuItem;
    begin
      item := TMenuItem.Create(MainMenu1);
      item.Caption := '&File';
      MainMenu1.Items.Add(item);

      item2 := TMenuItem.Create(MainMenu1);
      item2.Caption := 'E&xit';
      item2.OnClick := ExitClick;
      item.Add(item2);

    end;
        procedure TForm1.ExitClick(Sender: TObject);
    begin
      Application.Terminate;
    end;
end.

[[José Luis Garcí]]

Gracias por tu respuesta neuronic, pero se trata de añadir nuevas propiedades al menu y no nuevas partes de esta, por si no ha quedado claro expongo lo que quiero hacer:

Partiendo de un MainMenu hacer un menu con niveles de seguridad y clave, en la parte principal esta los niveles de seguridad, clave de acceso y mensaje de solicitud de clave y el nivel dw usuario actual (Valores generales), en el segunda parte cda vez que exponemos un Item se nos pediria un campo boolean que nos remite si para acceder hace falta clave y el nivel de usuario que hace falta para acceder al evento del item.

Espero haberme explicado bien.

[[xEsk]]

No quiero sonar borde, pero por mas que leo tus dos mensajes no logro entender lo que quieres, con el primer mensaje he entendido lo mismo que neuronic.

Creo que te lías un poco al intentar explicar lo que quieres, hehe.

Saludos.

[[José Luis Garcí]]

XesK intentare explicarme mejor
Cuando soltamos el componente TmainMenu, trae una seri de opciones, cuando pulsamos sobre su icono o sobre la opcion Items, nos sale nuevas opciones que se cran paera cada una de los elementos del menu.

Bien logro crear la opciones sobreel componente en su parte principal pero no sobre cada elemento, como los caption, pero crear mi propia opcion.


Espero quede mas claro, gracias por vuestra ayuda.

[[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??