[Participez à la FAQ !] La question de la semaine

Pour ceux que cela intéresse, nous vous invitons à une participation ludique pour la FAQ Delphi. Voici les règles du jeu :

• l'équipe de la FAQ Delphi vous soumet une question sur un sujet particulier,
• vous nous proposez une solution si possible commentée en gardant à l'esprit qu'une FAQ se veut être des réponses simples et précises à des problèmes récurrents,
• les réponses sélectionnées seront celles qui sont les plus rapides autant au niveau développement qu'exécution,
• une seule réponse sera sélectionnée par question puis intégrée à la FAQ avec le nom du contributeur.

C'est parti !

Merci à Portu, Hauwke et lil_jam63 pour leur contribution à la question précédente Comment ajouter un item dans le menu système de windows ?

Pour cette semaine :

Citation:

---

Comment créer un menu Popup dans un menu Popup ?

---

Les réponses sont postées à la suite de ce message.

:merci:

Bonjour,
Pour ouvrir le bal...

Code:

---

1 2 3 4 5 6

Var pt:Tpoint; begin pt:=pp1.PopupPoint;// recup position du popup n° 1 pp2.Popup(pt.X, pt.Y);// affichage du popup n° 2 en lieu et place du popup n°1 end;

---

y'a des effets de bords, notemment lors du permier click droit, c'est le popup n°2 qui s'affiche et c'est seulement au second click droit que les choses s'arrangent mais ça peut donner des idées... ;)
Quand à trackpopupmenu() ça fonctionne carrément pas chez moi :evil:
Cordialement,
Hauwke

Bonjour,
:roll: Heu juste par curiosité, A quoi peux servir cette technique ? Il y a les sous-Item pour ca ! ou alors, je n'ai pas très bien compris la question :wink:

En utilisant NewPopupMenu.
Ce n'est pas un code d'expert, mais ça marche. Par contre, autre question: Comment le faire apparaître à côté du menu courant?

Dans l'évènement OnPopup

Code:

---

1 2 3 4 5 6 7

procedure TForm1.PopupMenu2Popup(Sender: TObject); var mPopup: TPopupMenu; begin mPopup := NewPopupMenu(Sender as TComponent,'mPopup',paLeft,true,[NewItem('Popup inside', TShortCut(nil),False, True, nil, 0, 'Item1')]); mPopup.Popup(150,150); end;

---

Pour Hauwke, tu es dans quel évènement là?

Citation:

---

Envoyé par Caine

Pour Hauwke, tu es dans quel évènement là?

---

Je suis dans l'événement Onclick d'un item du popup n°1. La question relevant plus de la perversion que du vice ;) je me suis dit qu'il fallait un item vicelard pour nécessité l'emploi d'un tel truc... :D

C'est étrange, car PopupPoint est protégé. Je ne l'ai pas dans mon event. Enfin, je suis en version D5, c'est peut être pour ça.

Toujours personne pour m'expliquer :wink:

Citation:

---

Envoyé par portu

Bonjour,
:roll: Heu juste par curiosité, A quoi peux servir cette technique ? Il y a les sous-Item pour ca !

---

Oui effectivement c'est pas très courant comme approche. L'équipe de la FAQ dispose d'une liste de questions qui ont été posées sur le forum sans avoir eu de réponse, celle-ci n'est peut être pas très pertinente :roll: .

Si il y a une bonne raison : ouvrez donc Word, déroulez le menu et cliquez droit sur un item : vous avez un pop-up menu pour l'élément de menu, qui permet essentiellement de le personnaliser.
C'est donc bien pour agir sur l'élément lui-même et non sur ses fonctionnalités, donc c'est parfaitement logique ;)

Citation:

---

Envoyé par sjrd

Si il y a une bonne raison : ouvrez donc Word, déroulez le menu et cliquez droit sur un item : vous avez un pop-up menu pour l'élément de menu, qui permet essentiellement de le personnaliser.
C'est donc bien pour agir sur l'élément lui-même et non sur ses fonctionnalités, donc c'est parfaitement logique ;)

---

AU risque de paraître encore chiant :twisted: : J'ai beau cliquer droit sur les items du main menu de Word et le popup de la page sans pour autant avoir ce que tu viens de dire.

Le seul endroit possible c'est le nom du menu primaire, par exemple le clic droit sur 'Fichier' permet de sélectionner les barres d'outils.

Citation:

---

Envoyé par Laurent Dardenne

Le seul endroit possible c'est le nom du menu primaire, par exemple le clic droit sur 'Fichier' permet de sélectionner les barres d'outils.

---

Tout à fait ! Je dirai aussi que ce popup est non pas lié au MainMenu mais aux toolbars.

Bonsoir,

Citation:

---

Envoyé par Caine

C'est étrange, car PopupPoint est protégé. Je ne l'ai pas dans mon event. Enfin, je suis en version D5, c'est peut être pour ça.

---

Elle ne l'est, apparemment, plus avec D2005 Architect

Citation:

---

Envoyé par portu

J'ai beau cliquer droit sur les items du main menu de Word et le popup de la page sans pour autant avoir ce que tu viens de dire.

---

Idem pour moi et même si j'aime bien la "question de la semaine" que je prends un peu comme un jeu de l'esprit ( cela dit en passant, il pourrait réellement en devenir un à offrir au forum, why not?) il faut reconnaître que certaines questions sont plus à remiser à la rubrique "Curiosités" que "FAQ".
Mon avis personnel, au delà du jeu, est que la FAQ est l'un des premiers points de passage des nouveaux. A chaque fois que l'occasion se présente il ne manque pas un membre chevronné pour rappeler aux débutants qu'il leur faut avoir des IHM propres, des menus avec options bien claires et des codes qui respectent les 1001 règles de nommages, aussi peut être conviendrait-il d'ouvrir une rubrique "Curiosités et recettes de cuisines" sous couvert de laquelle il serait permis de faire des "expériences" ou bien d'avoir quelques jolis défis de prog du style "faire couver un œuf d'autruche à Delphi 5 en moins de 100 lignes de code" (oui, je sais cela a déjà été fait, j'ai vu tourner le soft chez un agriculteur!) et ainsi de laisser la FAQ répondre à sa destination première: Les questions fréquemment posées. Mon but, ici, n'est pas de jeter un pavé dans la mare, bien au contraire mais simplement de relever ceci:

Citation:

---

Envoyé par Laurent Dardenne

[...]L'équipe de la FAQ dispose d'une liste de questions qui ont été posées sur le forum sans avoir eu de réponse[...]

---

Je pense que si ces questions sont restées sans réponse c'est qu'elles n'ont pas dues être posées fréquemment.
En l'occurrence, je pense qu'il serait judicieux de rappeler au débutants - que nous fûmes tous un jour et que nous sommes tous pour toujours -, qu'un turbo menu est, avant tout, un ramassé vif "contextuellement adapté" d'options présentes dans le menu principal ce qui implique, en toute logique, qu'une éventuelle personnalisation de ces items doit, normalement, se trouver dans le main menu et que le caractère "instantané et volatile" d'un turbo menu ne devrait pas nécessiter d'ajustement "à la volée" si il a été bien pensé par le développeur!
En conclusion, je pense que cette question a le mérite de nous faire jouer avec Delphi et je m'en réjouis chaque semaine mais qu'elle ne devrait pas rejoindre la FAQ.
En fin, je pense que l'équipe de rédaction de la FAQ réalise un boulot admirable et qu’il ne serait pas des plus pratiques pour nous autres utilisateurs de les voir se transformer en pamphlétaires pour le cirque Grus de la programmation, cela ne pourrait que nuire à la qualité de la-dite FAQ me semble-t-il.
Cordialement,
Hauwke

Citation:

---

Envoyé par Laurent Dardenne

Le seul endroit possible c'est le nom du menu primaire, par exemple le clic droit sur 'Fichier' permet de sélectionner les barres d'outils.

---

Citation:

---

Envoyé par portu

Tout à fait ! Je dirai aussi que ce popup est non pas lié au MainMenu mais aux toolbars.

---

Sous cet angle là, effectivement, la question primale prend plus de sens. J'ai ces options en natif avec les compo menus et toolbars de devexpress.
Cette option existe également pour les tollbars de la vcl (D2005)
A voir ce que l'on peut faire pour le mainmenu...
Cordialement,
Hauwke

Je partage tout à fait ton point vue.

Citation:

---

Envoyé par Hauwke

qu’il ne serait pas des plus pratiques pour nous autres utilisateurs de les voir se transformer en pamphlétaires pour le cirque Grus de la programmation, cela ne pourrait que nuire à la qualité de la-dite FAQ me semble-t-il.

---

Non ce n'est pas l'objectif mais nous avons aussi le droit de nous tromper.
Et puis c'est pas mal d'avoir d'une part un retour sur le travail effectué et d'autre part de voir que l'intérêt que la FAQ peut susciter.
ça aide à se motiver.

Citation:

---

Envoyé par Hauwke

( cela dit en passant, il pourrait réellement en devenir un à offrir au forum, why not?)

---

Oui j'y ai souvent pensé mais il nous faudrait des journées de 48 h pour tout faire :P
Si tu as une idée sur le comment faire poste un sondage pour voir si le principe intéresse d'autres membres.

Je rappel que c'est votre forum et pas celui des modérateurs, vous avez donc le droit de formuler vos souhaits sur des sujets de tutos, des points à aborder dans la faq,...

Bon, à priori, comme cette question est en train de tomber à l'eau à cause du fait que le popupmenu est plus relié à la Toolbar qu'au menu, je vous en propose une autre aussi sympa que redoutable sur les TMainMenu :P

J'ai déplacé le sujet que je proposais ici dans un thread à part (comme ça, ça ne polluera pas la Question de la semaine :wink: ) :
http://www.developpez.net/forums/vie...438949#2438949

Cette question est intéressante. Nos applications vont avoir un look&feel d'enfer avec tout ça.

C'est possible sur toutes les versions depuis D5 à D2005 inclus?

Pour défendre la question précédente, elle peut être utile.

Un popup apparaît, clic-droit dessus pour accéder directement à la customisation de popup.

Citation:

---

Envoyé par Caine

C'est possible sur toutes les versions depuis D5 à D2005 inclus?

---

Oui, c'est possible... :P

Edit : C'est posiible de Delphi 3 à Delphi 7, et pour Delphi 2005, Delphi 1 et 2, très surement (pas testé).
Ca marche sur tous les Windows