PopupMenu !!!

[[fjcg02]]

Empezado por Ledian_Fdez

Código Delphi [-]
procedure TCodificadoresForm.ListViewSuministradoresSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
 if(Selected)then
   begin
    MenuMun1.Items[1].Enabled:= True;
    MenuMun1.Items[2].Enabled:= True;
    MenuMun1.Items[4].Enabled:= True;
   end
 else
   begin
    MenuMun1.Items[1].Enabled:= False;
    MenuMun1.Items[2].Enabled:= False;
    MenuMun1.Items[4].Enabled:= False;
   end;
end;

Ya veo que no te has dado cuenta de lo que te comentaba. Tu código quedará mucho más claro si lo pones así, y si agrupas todas las condiciones del formulario en una sola función, mejor.

Código Delphi [-]
TCodificadoresForm.ListViewSuministradoresSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
    MenuMun1.Items[1].Enabled:= Selected;
    MenuMun1.Items[2].Enabled:= Selected;
    MenuMun1.Items[4].Enabled:= Selected;
end;

Saludos