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
Código Delphi
[-]
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
Código Delphi
[-]
procedure TFnew_menu.crear_accion_m(men: TJfMenuItem; Privilegio: TJfPrivilege);
begin
Randomize;
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); NewItem.Caption := men.Caption;
newitem.Privilege := Privilegio;
newitem.Tag := nmesas + 1;
newitem.OnClick := men.OnClick;
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