Creacion de menus dinamicos desde una base de datos firebird

[IVAND]

Hola a todos

Ya se que es un tema hablado muchas veces , pero tengo solo una duda
Tengo un menu que obviamente tiene las opciones de mi sistema , quiero personalisar ese menu con los llamados accesos directos , pues bien hasta ahi todo esta bien , lo grabo en una tabla de la base de datos y cuando salgo del menu tengo que volver a recuperar esos datos para volver a armar el menu de accesos directos , lo consigo bien , pero en su opcion de onclik tengo un error que espero ustedes me ayuden con sus conocientos

Ejemplo

procedure PopupMenuItemsClick(Sender: TObject); // defino



procedure TFnew_menu.FormCreate(Sender: TObject);
var
Index: Integer;
begin
AModeSelUser := False;
// Ejecuto y creo el menu de una tabla
with Listar_menu do
begin
close;
ParamByName('key_caja').Value := DM_INV_FAC.Id_caja;
Open;
end;
if Listar_menu.RecordCount > 0 then
begin
Listar_menu.First;
while not Listar_menu.eof do
begin
NewItem := TJfMenuItem.Create(JfPanelMenu1); //
JfPanelMenu1.Items.Add(NewItem); //
NewItem.Name := Listar_menu.fieldByname('Nombre_menu').AsString;
NewItem.Caption := Listar_menu.fieldByname('Detalle_menu').AsString;
NewItem.Privilege.Id := Listar_menu.fieldByname('privilegio').value;
NewItem.Tag := index;
NewItem.OnClick := PopupMenuItemsClick; // asigno la acccion de onclik
Index := Index + 1;
Listar_menu.Next;
end;
end;
Listar_menu.Close;
end;






procedure TFnew_menu.PopupMenuItemsClick(Sender: TObject);
begin
(Sender as TJfMenuItem).OnClick(JfMenuItem147); // aqui es donde esta el problema

si lo asigno asi esto funciona perfecto , pues JfMenuItem147 es un Tobject ,
puedo obtener el nombre del menu , pero no se como asignar su accion de Onclik

(Sender as TJfMenuItem).OnClick((Sender as TJfMenuItem).name);
me da un error que debe ser un Tobject y le estoy pasando un Tobjectname


end;



MI pregunta es

Como puedo realizar en tiempo de ejecucion asignarle el evento onclik para que se ejecute cada opcion correctamente


Gracias por su tiempo


Nota: ahora lo que hago es

if name = 'JfMenuItem18' then JfMenuItem18.Onclick(sender);
if name = 'JfMenuItem93' then JfMenuItem93.Onclick(sender);
if name = 'JfMenuItem260' then JfMenuItem260.Onclick(sender);
if name = 'JfMenuItem242' then JfMenuItem242.Onclick(sender);
if name = 'JfMenuItem250' then JfMenuItem250.Onclick(sender);
if name = 'JfMenuItem261' then JfMenuItem261.Onclick(sender);
if name = 'JfMenuItem262' then JfMenuItem262.Onclick(sender);


Pero claro no es lo correpto pero funciona
:confused:

[Neftali [Germán.Estévez]]

Echale un vistazo a esta entrada (http://neftali.clubdelphi.com/?p=1228) y al ejemplo correspondiente a ver si te sirve de ayuda.

¿Has probado a asignar la Action correspondiente?

CReo que ya lo tienes todo. Si tienes ya programadas las acciones que necesitas ejecutar, en el evento PopupMenuItemsClick, sólo debes ejecutar la acción que necesitas según el ítem que te han seleccionado (pare eso tienes el Sender).

[IVAND]

Gracias por responder

Te comento que si ya probe con sender , pero me sale un error de stack overflow , como si me deja usar la opcion de name queria poner en sender(nombre del menu) , pero no me deja pues me dice que debe ser un objeto no un objetonombre y es ahi donde me quede truncado

[IVAND]

Debo indicarte algo , que cuando estoy en el sistema y doy a crear acceso directo este se ejecuta sin problemas , el problema radica cuando salgo del programa y quiero crear el menu desde la tabla ahi si me da el problema que te comento


Te indico que es lo que hago desde el principio

// con el click derecho del mouse creo la accion


procedure TFnew_menu.JfMenuItem94RightClick(Sender: TObject);
begin
mi := TJfMenuItem(Sender);
tema := mi.Caption;
crear_accion_m(mi, mi.Privilege);
end;


//El proceso de creacion del menu y insercion en la tabla


procedure TFnew_menu.crear_accion_m(men: TJfMenuItem; Privilegio: TJfPrivilege);
begin
Randomize;
//Insertamos la opcion en el menu primero consultamos
with crear_menu do
begin
close;
ParamByName('key_caja').Value := DM_INV_FAC.Id_caja;
ParamByName('menu').Value := Trim(men.Caption);
Open;
end;
if Crear_menu.RecordCount = 0 then
begin
NewItem := TJfMenuItem.Create(JfPanelMenu1);
JfPanelMenu1.Items.Add(NewItem); // add it to the Popupmenu
NewItem.Caption := men.Caption;
newitem.Privilege := Privilegio;
newitem.Tag := nmesas + 1;
newitem.OnClick := men.OnClick;
//Insertamos en la base de datos
Crear_menu.Insert;
crear_menu.FieldByName('detalle_menu').Value := men.Caption;
crear_menu.FieldByName('key_caja').Value := DM_INV_FAC.Id_caja;
crear_menu.FieldByName('privilegio').value := Privilegio.Id;
crear_menu.FieldByName('id_menu_items').value := men.menuIndex;
crear_menu.FieldByName('nombre_menu').value := men.Name;
crear_menu.FieldByName('imagen').value := men.Image.Id;
crear_menu.Post;
end;
end;


Ahi se ejecuta perfecto , porque estoy dentro del sistema , pero cuando salgo la idea es cargar el menu que esta grabado en la base y es ahi donde me da el error

Te agradesco por tu tiempo , espero me puedas dar una mano

[IVAND]

Hola nuevamente

lo probe asi

procedure TFnew_menu.PopupMenuItemsClick(Sender: TObject);
var
mi:TjfmenuItem;
Begin
with sender as TJfMenuItem do
begin
// mi := TMenuItem(ListBox1.Items.Objects[i]);
if Assigned((Sender as TjfmenuItem).OnClick) then begin
(Sender as TjfmenuItem).OnClick(nil); //Error de AV
//mi.OnClick(nil); //Error de Av si uso esta forma tambie
Exit;
end
End ;


Me sale un error de AV

[Neftali [Germán.Estévez]]

¿Has probado a asignar la Action correspondiente?


Lo mismo que te comenté antes.
En lugar de asignar eventos, asigna la Action.

Crea un ActionList en tu formulario. Crea la Action que necesites y programa en ellas el código para cada una.
En el procedimiento donde creas los items de menú deberás asignar a cada ítem su action correspondiente.

¿Cómo saber qué action va con cada ítem? Pues por ejemplo, guardando en la Base de Datos junto a cada elemento de menú el nombre de la Action que le corresponde (como haces con el Caption o con el Name). Cuando creas el elemento de menú, busca la action por el nombre que tienes almacenado y se la asignas. De esta forma te olvidas de los OnClick.