Discussion :

[declencher]

Bonjour,

J'aimerai pouvoir placer un composant TEdit avec pourquoi pas un TButton à la droite de mon TMenu. Un peu comme dans Delphi mais sans que les bars soient déplaçables ni redimmensionnables.
J'ai essayé plusieurs solution comme un TMenu dans TToolBar mais l'affichage est horrible et ça ne répond pas au besoin.

Avez vous une astuce pour faire ça ?

Merci

[declencher]

Bonjour,

J'ai tenté les TCoolBar, TToolbar, et je n'arrive pas à obtenir quelque chose de satisfaisant. Personne n'aurez une idée ? ça en devient désespérent...

[LadyWasky]

Heu... je ne crois pas que ce soit possible

Je me suis penché sur ta question depuis hier sans trouver de réelle réponse. Et au lieu de te sortir une anerie hier, j'ai préféré réfléchir un peu avant.

Voilà le résultat de ma réflexion :
Ce qui est sur, c'est quand un TMainMenu se dessine sur sa fiche, windows commence par dessiner une zone particulière : Une MenuBar.
Cette zone particulière se dessine par-dessus tout les autres contrôles de la fiche et n'est pas un contrôle fenétré (comme TWinControl, donc il ne peux pas contenir un autre control graphique).

Bref à partir de là, on ne peux pas placer un contrôle dans ou sur la MenuBar qui prend toute la largeur de la fiche qui en est la parente.

Cependant j'entrevoie une solution possible :

1. En guise de MenuBar, tu mets un Panel sur ta fiche (propriétés align:=alTop et BevelOuter=bvNone) avec une hauteur (Height) de 20, et avec Caption:=''.
2. Dessus (sur ton Panel) tu places, 2 ou 3 Labels (ou boutons si tu préfère), avec comme Caption respectif 'Fichier', 'Edition', 'Aide' (par exemple).
   Tu mets leur propriétés Align à alLeft et Autosize à False.
   Tu leur affectes la largeur que tu souhaites.
3. Tu places sur ta fiche autant de TPopupMenu, que tu as placé de Labels dans ton panel.
4. Dans la propriété PopupMenu de tes labels, tu affecte leur PopUpMenu correspondant.
5. Dans l'évènement OnMouseDown des Labels, tu places ce code
   

   Code :

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

   1
   2
   3
   4
   5
   6
   7
   8
   9
   procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
   var APoint:TPoint;
   begin
     APoint.X:=0;
     APoint.Y:=label1.Height;
     APoint:=label1.ClientToScreen(APoint);
     PopupMenu1.Popup(APoint.X,APoint.Y);
   end;

6. enfin tu places ton TEdit et ton TButton où tu veux dans ton Panel

Comme ça tu auras l'effet souhaité, avec un menu qui ressemble... à un Menu.

Sinon, j'avais bien pensé à changer la couleur des Labels dans l'évènement OnPopup des PopupMenus, mais comme on a pas de OnClosePopup, on ne peut pas remettre une couleur normale (remarque je n'ai pas trop creusé la question ) lorsque le popupmenu se referme. Du coup on a pas d'effet "HotTrack" comme sur un vrai TMainMenu.

Voilà, voilà...

[Pedro]

Cette zone particulière se dessine par-dessus tout les autres contrôles de la fiche et n'est pas un contrôle fenétré (comme TWinControl, donc il ne peux pas contenir un autre control graphique).

Et en créant un nouveau compo héritant de TMenuBar, on ne pourrait pas lui ajouter

Code :

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

1
2
 
  ComponentStyle:=ComponentStyle+[csAcceptControls]

?

[portu]

Un TToolBar + TMainMenu + TToolBar.Ftat = True = A ce que tu veux non ?

[LadyWasky]

Cette zone particulière se dessine par-dessus tout les autres contrôles de la fiche et n'est pas un contrôle fenétré (comme TWinControl, donc il ne peux pas contenir un autre control graphique).

Et en créant un nouveau compo héritant de TMenuBar, on ne pourrait pas lui ajouter

Code :

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

1
2
 
  ComponentStyle:=ComponentStyle+[csAcceptControls]

?

Il n'y a pas de composant TMenuBar dans Delphi
L'objet MenuBar est un objet Windows qui s'affiche avec l'API Windows DrawMenuBar (qui dessine directement sur le canvas de la fenètre).

Sinon, si tu te sens l'âme d'un guerrier, bref si tu as le Fighting Spirit, vas-y fais nous un joli composant

[HumanTool]

salut,
ce que j'ai fait c'est d'utiliser la Tcontrolbar dans laquelle j'ai mis 1 à n TTtoolbar.
Dans les TToolbar j'ai ajouté mes TToolButton suivant les menus que je souhaitais.
Dans ma fenêtre principale j'ai un TMainMenu avec ses items. Sur chaque TToolButton j'ai relié leur propriété MenuItem au TMenuItem correspondant dans le TMainmenu.
Enfin j'ai pu placé une combo sur 1 des TToolbar et cela marche bien.

est ce que ça aide ?

[declencher]

Bonsoir,

Après une soirée de php, je viens de voir vos messages. Je teste tout ça demain soir et je vous ferai mes retours (attendez vous à me revoir). Merci pour vos idées !!