Delphi - Agregar menu a varios popup

 
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder