10 respuestas en este tema

[esocrates]

Pretendo agregar en un menú en tiempo de ejecución información desde un archivo ini para controlar favoritos o archivos recientes, por ej.
Consigo mediante este código agregar los Items.

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  NuevoItem: TMenuItem;
begin
  for i:= 0 to 3 do
  begin
  NuevoItem:=TMenuItem.Create(self);
  MainMenu1.Items[0].Items[1].Add(NuevoItem);
  NuevoItem.Caption := 'Agregado ' + IntToStr(i);
  end;
 
end;

Lo que no consigo hacer es manejar el evento click de uno de los Items creados para que se haga algo, por ej. lanzar un ShowMessage.

He Probado con códigos como este:

delphi

procedure TForm1.FormClick(Sender: TObject);
var
  i:integer;
  
begin
 
 for i:= 0 to Mainmenu1.Items[0].Items[1].Count -1 do
 begin
       if mainmenu1.Items[i].Caption = 'Agregado 2' then
      mainmenu1.Items[i].Click:=ShowMessage('Hola'); 
 
 end;
end;

Si me pueden dar alguna orientación se los agradecería.
Un saludo

Nota:Adjunto el ejemplo

Archivos adjuntos

•  1822_59215f8985b17b874c97b9d45835df4bfeac1649.zip   5,87KB   1 descargas

[enecumene]

Pues debes hacer uso del Evento OnClick:

delphi

mainmenu1.Items[i].OnClick := 'Nombre del procedimiento';

Saludos.

[egostar]

Hola

Yo usaría el evento Onclick de uno los Items y lo asigno a todos los items del menu, algo Así:

delphi

procedure TForm1.Uno1Click(Sender: TObject);
begin
  ShowMessage((Sender as TmenuItem).Caption);
end;

Con eso te va a mostrar el caption de cualquier Item que selecciones con el Clic.

Salud OS

[esocrates]

Hola de nuevo.
Disculpen pero no me sale.
¿Podrían en el ejemplo que adjunté hacer que al hacer click en Archivo\recientes\Agregado 2  se muestre un message 'Agregado dos' y que esto sólo suceda si es este Item el clickeado?
Gracias por la paciencia
Un saludo

[egostar]

Aquí me parece que hay dos opciones, utilizamos el mismo concepto de usar solo un evento OnClick para todos los items.

1. Utilizar el Tag del Item y hacer esto:

delphi

procedure TForm1.Uno1Click(Sender: TObject);
var
  Etiqueta: string;
begin
  case (Sender as TmenuItem).Tag of
    1: Etiqueta := 'Agregado UNO';
    2: Etiqueta := 'Agregado DOS';
  end;
  ShowMessage(Etiqueta);
end;

2. Utilizar el Hint del Item y hacer esto:

delphi

procedure TForm1.Uno1Click(Sender: TObject);
begin
  ShowMessage((Sender as TmenuItem).Hint);
end;

[egostar]

Adjunto el código

Salud OS

Archivos adjuntos

•  1823_6abc3c5f511df4503100ee9b9552fd260b83a6f9.zip   4,5KB   3 descargas

[esocrates]

Hola egostar:
Algo estoy haciendo mal. Aunque creo entender la idea quje me has dado no me sale.
Te adjunto mi prueba dinde trato de aplicar tu sugerencia.
Muchas gracias

Archivos adjuntos

•  1824_9f1552f90ab73a3b8a4cc83f2eb319be8776afa4.zip   6,18KB   1 descargas

[egostar]

Ya vi cual es el asunto, tu lo que estás haciendo es creando en tiempo de ejecución los items del menu.

Sólo se requiere de unos pequeños ajustes.

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  NuevoItem: TMenuItem;
begin
  for i:= 0 to 3 do
  begin
    NuevoItem:=TMenuItem.Create(self);
    MainMenu1.Items[0].Items[1].Add(NuevoItem);
    NuevoItem.Caption := 'Agregado ' + IntToStr(i);
    //Le asignamos un Tag
    NuevoItem.Tag := i + 1;
    //Le asignamos el evento al que debe hacer referencia
    NuevoItem.OnClick := Recientes1Click;
  end;
 
end;
 
procedure TForm1.Recientes1Click(Sender: TObject);
var
  Etiqueta: string;
begin
  case (Sender as TmenuItem).Tag of
    1: Etiqueta := 'Agregado UNO';
    2: Etiqueta := 'Agregado DOS';
    3: Etiqueta := 'Agregado TRES';
    4: Etiqueta := 'Agregado CUATRO';
  end;
  ShowMessage(Etiqueta);
end;

Salud OS

[Caral]

Hola
Aqui esta tu ejemplo pero usando la idea de Egostar, mas o menos.
Saludos

Archivos adjuntos

•  1825_8e99f00bc59c8b3e3c9f6bacfcb86d67e86bdf55.zip   6,12KB   2 descargas

[esocrates]

Muchas gracias enecumene, egostar y Caral. Ahora entiendo la explicación y el ejemplo corregido funciona perfectamente
El problema está RESUELTO
Un saludo

[Caral]

Hola
Otro caso resuelto por el equipo de DelphiAcess.......
[move]...DelphiAccess,...DelphiAccess..... ra, ra, ra,............ .[/move]
Saludos