Discussion :

[Just-Soft]

Salut
En Delphi, comment activer et désactiver les éléments d'un popupmenu sans le faire élément par élément?

Merci.

[ShaiLeTroll]

Il n'y a pas de solution miracle, soit du désactive le menu parent, soit tu désactive un par un chaque menu (dans une boucle for par exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for i := 0 to MenuItem.Count - 1 do
  MenuItem.Items[i].Visible := False;
MenuSpecialToujoursVisible.Visible := True;

Voir aussi la TActionList ...

[anapurna]

salut

activer c'est pas dans le sens enabled plutot ?
(c'est a dire grisé)

@+ phil

[Just-Soft]

si si anapurna c'est dans le sens de grisé.
pour ta solution Shell qui consiste à positionner visible à false ça ne m'intersse pas .

quand j'ai posté cette question je pensé à vrai dire à une fonction API.

merci tout de même .

[Kaféine]

Salut

Salut
En Delphi, comment activer et désactiver les éléments d'un popupmenu sans le faire élément par élément?

si le but est de désactiver tous les éléments d'un menu popup, alors je vois pas l'intérêt d'afficher ce popupmenu justement.
Certains elément du popumenu ne sont pas accessible dans un certain contexte alors l'evenement OnPopup est la pour nous permettre de conditionner les élements (1 ou plusieurs). si la totalité du menu contextuel est non accessible, pourquoi l'afficher?.

[anapurna]

salut

imaginons que tu fasse une version demo il est quand même
plus sympa de voir afficher les différente possibilité que ton menu autorise même si celui-ci n'est pas actif ou encore
tu peut selon le contexte dire qu'il existe cette possibilité mais que pour le moment elle est inaccessible

pour les api regarde du cote de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EnableMenuItem

@+ Phil

[Just-Soft]

Re;
je vous remercie tous pour vos réponses mais je précise qu'à un moment donné je suis dans l'obligation d'afficher mon menu contextuel (donc visible = True) avec tous les éléments grisés. N'est-il pas plus commode de faire ça en une seule opération du genre (Enabled = False) sauf que le composant popupmenu n'a pas cette propriété ?

[anapurna]

salut

as tu regarder la fonction api que je t'ai indiquer
selon la façon dont tu as créer ton sous menu tu peut peut être
affecter tout tes item en une fois

@+ Phil

[CapJack]

Moi, je proposerais de poser deux TPopupMenu, et d'initialiser dynamiquement la propriété PopupMenu du composant concerné dynamiquement, en fonction du contexte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if IsDemo then PopupMenu := PopupMenu1 else PopupMenu := PopupMenu2;

[ShaiLeTroll]

N'est-il pas plus commode de faire ça en une seule opération du genre (Enabled = False) sauf que le composant popupmenu n'a pas cette propriété ?

Si c'est plus facile et le TMenuItem contient bien Enabled ... il suffisait de remplacer Visible par Enabled dans mon exemple ! Pourquoi vous cherchez tous Midi à 14h ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i := 0 to MenuItem.Count - 1 do
  MenuItem.Items[i].Enabled := False;
MenuSpecialToujoursActif.Enabled := True;

Attention à l'interaction avec les Actions d'une ActionList relié au MenuItem ...

[Just-Soft]

Re
Mais Shell ton bout de code est magnifique mais je ne cherche pas à manipuler les Items un par un.

Je me disais peut être que l'API Windows allait me sauver mais hélas, même avec EnableMenuItem ne marche que pour les Items.

donc y a quand même une différence entre midi et 14h.

[ShaiLeTroll]

Euh c'est pas mais Shai Le Troll Méchant, je vends pas de l'essence, sinon je serais plus riche

Sinon, j'ai donné l'exemple dans une boucle, mais aussi un pour un seul item avec un nom spécifique, mais en fait c'est quoi que tu veux faire, tu veux cacher le MainMenu carrément ??? Pour cela suffit d'enlever de la propriété Menu de la Forme ... et donc ça le cache, si tu veux rendre disabled les menus à la racine (ceux vu tout en haut de la fenêtre), suffit d'appliquer la boucle, ... en quoi ce pose-t-il un problème, c'est faire une boucle pour manipuler chaque item un par un qui te gêne ? j'espère que non car les boucles c'est utilisée partout genre DataSet, Items, Strings, Collection, Array ...