TButton et PopupMenu

bonjour,

sur une fiche j'ai par exemple 3 Tbutton et un popmenu
si j'affecte le popmenu aux 3 buttons et que dans l'événement onclick du menuitem (du popmenu) je mets:

Code:

---

showmessage(((Tpopupmenu(Tmenuitem(sender).GetParentMenu).PopupComponent) as Tbutton).name);

---

j'arrive a avoir le nom du boutton sur lequel j'ai clické le popmenu, jusque la, ça va.

mais je voudrais que ça marche avec le click gauche, donc j'ai sur les button j'ai mis la propriété "style" sur bsSlipButton et j'ai attribué mon popmenu a la propriété "dropDownmenu",
donc maintenant quand je click gauche sur mes button j'ai le menu, mais du coup j'ai une violation d'accès avec

Code:

---

showmessage(((Tpopupmenu(Tmenuitem(sender).GetParentMenu).PopupComponent) as Tbutton).name);

---

en fait c'est .PopupComponent qui fait planter, comme si popupmenu n'avait pas de 'parent', j'arrive pas a avoir le composant qui a appelé le menu...



j'ai aussi essayé de mettre

Code:

---

Button1.PopupMenu.Popup(mouse.CursorPos.x,mouse.CursorPos.Y);

---

dans le onclick de mon boutton, mais la aussi si je click dans le popupmenu ça plante a cause du .PopupComponent ....


une idée ?

merci






exyacc

delphi berlin

Pas sûr qu'on puisse le récupérer facilement. Une parade serait de mémoriser le composant sous la souris à l'ouverture du menu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var ClickedControl :TControl;   procedure TForm1.PopupMenu1Popup(Sender: TObject); begin ClickedControl := FindVCLWindow(Mouse.CursorPos); end;   procedure TForm1.Contents1Click(Sender: TObject); begin ShowMessage(ClickedControl.Name); end;

---

Salut,

une autre parade serait de d'utiliser l'évènement OnDropDownClick du Bouton et tu fais:

Code:

---

1 2 3 4

procedure TfrmMain.Button1DropDownClick(Sender: TObject); begin PopupMenu1.PopupComponent := TButton(Sender) end;

---

tu relies tous les les évènements des boutons concernés à cette Procedure
et comme avant ton code dans le onclick du menuitem (du popmenu)

Code:

---

1 2 3 4

procedure TfrmMain.Menu11Click(Sender: TObject); begin showmessage(((TPopupMenu(Tmenuitem(sender).GetParentMenu).PopupComponent) as Tbutton).name); end;

---

et ça fonctionne ;)

Cordialement,
@+ Cirec

merci Andnotor et cirec,

je vais utiliser

Code:

---

PopupMenu1.PopupComponent := TButton(Sender);

---

j'avais essayé
PopupMenu1.owner:= Sender;
mais en lecture seule.


merci a vous 2, bonne journée

Un mixe des deux alors. Gérer l'ouverture du menu évitera de devoir modifier tous les boutons ;)

Code:

---

1 2 3 4

procedure TForm1.PopupMenu1Popup(Sender: TObject); begin TPopupMenu(Sender).PopupComponent := FindVCLWindow(Mouse.CursorPos); end;

---

Citation:

---

Envoyé par Andnotor

Un mixe des deux alors. Gérer l'ouverture du menu évitera de devoir modifier tous les boutons ;)

Code:

---

1 2 3 4

procedure TForm1.PopupMenu1Popup(Sender: TObject); begin TPopupMenu(Sender).PopupComponent := FindVCLWindow(Mouse.CursorPos); end;

---

---

ça reste assez discutable
déjà ce ne sont pas tous les boutons mais uniquement ceux concernés

par-contre si j'utilise le même PopupMenu sur des d'autres boutons (normaux) ton code, lui, y sera exécuté alors que chez moi non

là il y a modification inutile
et pour finir, même si on ne le voit pas, un appel à FindVCLWindow est quand même plus couteux en ressources qu'une simple assignation

Cordialement,
@+ Cirec

Citation:

---

Envoyé par Cirec

déjà ce ne sont pas tous les boutons mais uniquement ceux concernés

---

"Un mixe des deux alors. Gérer l'ouverture du menu évitera de devoir modifier tous les boutons concernés" ;)

Citation:

---

Envoyé par Cirec

par-contre si j'utilise le même PopupMenu sur des d'autres boutons (normaux) ton code, lui, y sera exécuté alors que chez moi non

---

Tu cherches la petite bête, rien n’empêche de conditionner l'appel (PopupComponent est remis à nil avant affichage) :

Code:

---

1 2 3 4 5 6

procedure TForm1.PopupMenu1Popup(Sender: TObject); begin with TPopupMenu(Sender) do if not Assigned(PopupComponent) then PopupComponent := FindVCLWindow(Mouse.CursorPos); end;

---

Citation:

---

Envoyé par Cirec

...simple assignation

---

Plus simple oui mais très statique. Gérer le popup à son ouverture est beaucoup plus souple :

• aucune modification de code si des boutons devaient maintenant être assignés à PopupMenu2 ;
• possibilité de créer le Popup en runtime puisque indépendant des boutons (des contrôles en général).

Après, comme toujours, chacun fait ce qui lui plait ;)

Citation:

---

Envoyé par Andnotor

Tu cherches la petite bête, ...

---

j'me fais ch*** :-o :) ça se voit tant que ça :mouarf:

Citation:

---

Envoyé par Andnotor

... rien n’empêche de conditionner l'appel (PopupComponent est remis à nil avant affichage) :

Code:

---

1 2 3 4 5 6

procedure TForm1.PopupMenu1Popup(Sender: TObject); begin with TPopupMenu(Sender) do if not Assigned(PopupComponent) then PopupComponent := FindVCLWindow(Mouse.CursorPos); end;

---

---

par-contre chez moi (Berlin 10.1 Starter os Win 7)
ça ne fonctionne pas c'est le premier bouton cliqué qui se retrouve dans PopupComponent
je peux cliquer autant que je veux sur les autres boutons rien ne change il renvoi que le premier cliqué !!!!
Si je retire la condition alors ça fonctionne mais on en revient au début :oops:;)

Cordialement,
@+ Cirec

Citation:

---

Envoyé par Cirec

Si je retire la condition alors ça fonctionne mais on en revient au début :oops:;)

---

C'est vrai :(

Voici encore une autre façon par une surcharge du TButton. A placer avant la déclaration de la fiche :

Code:

---

1 2 3 4 5

type TButton = class(Vcl.StdCtrls.TButton) private procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; end;

---

et

Code:

---

1 2 3 4 5 6 7

procedure TButton.CNNotify(var Message: TWMNotify); begin if (Message.NMHdr.code = BCN_DROPDOWN) and Assigned(DropDownMenu) then DropDownMenu.PopupComponent := Self;   inherited; end;

---

Plus aucun événement à définir :mrgreen:

Citation:

---

Envoyé par Andnotor

C'est vrai :(

Voici encore une autre façon par une surcharge du TButton. A placer avant la déclaration de la fiche :

Code:

---

1 2 3 4 5

type TButton = class(Vcl.StdCtrls.TButton) private procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; end;

---

et

Code:

---

1 2 3 4 5 6 7

procedure TButton.CNNotify(var Message: TWMNotify); begin if (Message.NMHdr.code = BCN_DROPDOWN) and Assigned(DropDownMenu) then DropDownMenu.PopupComponent := Self;   inherited; end;

---

Plus aucun événement à définir :mrgreen:

---

il est joli celui la ! :)

Attention au raisonnement de trouver le bouton par FindVCLWindow(Mouse.CursorPos), car ce n'est pas compatible avec une utilisation au clavier.

Citation:

---

Envoyé par Andnotor

Voici encore une autre façon par une surcharge du TButton. A placer avant la déclaration de la fiche :

Code:

---

1 2 3 4 5

type TButton = class(Vcl.StdCtrls.TButton) private procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; end;

---

et

Code:

---

1 2 3 4 5 6 7

procedure TButton.CNNotify(var Message: TWMNotify); begin if (Message.NMHdr.code = BCN_DROPDOWN) and Assigned(DropDownMenu) then DropDownMenu.PopupComponent := Self;   inherited; end;

---

Plus aucun événement à définir :mrgreen:

---

là on frise la perfection :mrgreen:
mais si on prend cette voie autant la rendre réutilisable
une simple unité Vcl.ExtButton.pas qu'il faut ajouter au uses de la partie interface
et très important, doit se trouver après Vcl.StdCtrls :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

unit Vcl.ExtButton;   interface uses Winapi.Messages, Vcl.Controls, Winapi.CommCtrl, Vcl.StdCtrls;   type TButton = class(Vcl.StdCtrls.TButton) private procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; end;   implementation   procedure TButton.CNNotify(var Message: TWMNotify); begin if (Message.NMHdr.code = BCN_DROPDOWN) and Assigned(DropDownMenu) then DropDownMenu.PopupComponent := Self;   inherited; end;   end.

---

Écrit une fois ... réutilisable à volonté ;)

Citation:

---

Envoyé par guillemouze

Attention au raisonnement de trouver le bouton par FindVCLWindow(Mouse.CursorPos), car ce n'est pas compatible avec une utilisation au clavier.

---

Ah ouai ... bien vu :ccool: