Agregar menu a varios popup
Publicado por Oscaro (42 intervenciones) el 06/09/2006 18:49:44
saludos
Veran mi duda es la siguiente
tego un pop up menu con sus opciones. de hecho una Opcion con 2 sub opciones mas.
la cosa es que, este mismo popup quiero que sea un item mas para otros 3 popupmenu.
Hasta el momento me funciona insertarlo una ves.
pero si lo vuelvo a insertar en otro PopUpMenu delphi me dice "Menu Insertado 2 veces".
Actualmente lo haga de esta manera :
procedure TfrmMain.FormShow(Sender: TObject);
begin
AddMenuIToMenu('Ordenar por ' , pumCamposOrdena.Items, PopUpMFacturas);
AddMenuIToMenu('Ordenar por ' , pumCamposOrdena.Items, PopUpFactGlobales);
end;
procedure TfrmMain.AddMenuIToMenu(Titulo : String; MenuToInsert : TMenuItem; DestMenu : TPopUpMenu);
var
c : integer;
begin
DestMenu.Items.Add(MenuToInsert);
c := DestMenu.Items.Count -1;
DestMenu.Items.Items[c].Caption := Titulo;
end;
pumCamposOrdena tiene la siguiente forma
Ordenar por .. > FOLIO
FECHA
Cualquier ayuda, sugerencia, gracias de antemano.
Veran mi duda es la siguiente
tego un pop up menu con sus opciones. de hecho una Opcion con 2 sub opciones mas.
la cosa es que, este mismo popup quiero que sea un item mas para otros 3 popupmenu.
Hasta el momento me funciona insertarlo una ves.
pero si lo vuelvo a insertar en otro PopUpMenu delphi me dice "Menu Insertado 2 veces".
Actualmente lo haga de esta manera :
procedure TfrmMain.FormShow(Sender: TObject);
begin
AddMenuIToMenu('Ordenar por ' , pumCamposOrdena.Items, PopUpMFacturas);
AddMenuIToMenu('Ordenar por ' , pumCamposOrdena.Items, PopUpFactGlobales);
end;
procedure TfrmMain.AddMenuIToMenu(Titulo : String; MenuToInsert : TMenuItem; DestMenu : TPopUpMenu);
var
c : integer;
begin
DestMenu.Items.Add(MenuToInsert);
c := DestMenu.Items.Count -1;
DestMenu.Items.Items[c].Caption := Titulo;
end;
pumCamposOrdena tiene la siguiente forma
Ordenar por .. > FOLIO
FECHA
Cualquier ayuda, sugerencia, gracias de antemano.
Valora esta pregunta


0