Bonjour à tous
Je crois bien que je me suis embarqué dans un truc pénible en voulant développer avec firemonkey car il y a pas mal de différences avec le développement VCL. Je n'ai pas fini de vous solliciter.
Je cherche désespérément à affecter un Popup Menu à la form principale de mon application. Je ne trouve pas la propriété PopupMenu dans l'inspecteur d'objet comme on pouvais le trouver avec la VCL.
J'ai essayé de faire ceci et le popup Menu s'affiche bien mais lorsque je réalise un clic droit ailleurs sur l'écran alors que le Popmenu est affiché, il ne se passe rien.
voici mon code
Merci d'avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 void __fastcall TPrincipaleForm::OnMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { // Si le bouton est le droit if(Button == TMouseButton::mbRight) { // on affiche le Menu Popup PopupMenu->Popup(X, Y); } }
Partager