Retrouver qui déclenche le PopupMenu avec bouton créées dynamiquement.Résolu

Question

Bonjour,

Je vous expose mon problème ainsi que les pistes que j'ai explorées.
Alors voila, je crée dans un ScrollBox des boutons dynamiquement suivant un fichier de configuration.
Ensuite je déclare la propriété btn.PopupMenu := mon popummenu.
Ce que je veux faire c'est que lorsque que je clique sur mon Popupmenu, j'affiche le Caption du bouton qui est appuyer.

Le problème c'est que j'arrive pas a remonter au bouton car le Sender de la fonction du clique du Popup est lui même.

Alors j'ai regardé du coté de la propriété PopupComponent.
Mais ce code me genère une violation d'accès :
    ShowMessage( TBitBtn( TPopupMenu(Sender).PopupComponent ).Caption );
Celui ci me donne une string vide
    ShowMessage( TBitBtn( TPopupMenu(Sender).PopupComponent ).Name);

Si vus avez une piste, je suis preneur
Merci et bonne Prog

f0xi · Accepted Answer

evenement OnContextPopup du composant (commun a tout les composant possedant le ppm) :

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    procedure DoButtonContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoButtonContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  with (Sender as TComponent) do
       PopupMenu1.Items[0].Caption := ClassName+'.'+Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.OnContextPopup   := DoButtonContextPopup;
  Button1.OnContextPopup := DoButtonContextPopup;
  Button2.OnContextPopup := DoButtonContextPopup;
  Form1.PopupMenu        := PopupMenu1;
  Button1.PopupMenu      := PopupMenu1;
  Button2.PopupMenu      := PopupMenu1;
end;

ce qui afficheras par exemple :

TForm1.Form1
TButton.Button1
TButton.Button2

moldov · Answer

Meci F0xi, impeccable cela resoud mon problème.

Bonne Prog

Retrouver qui déclenche le PopupMenu avec bouton créées dynamiquement.

2 réponses

Votre réponse

Discussions similaires