Soyez le premier à donner votre avis sur cette source.
Vue 6 101 fois - Téléchargée 505 fois
//déclarer ca var NewItem: TMenuItem; //puis pour l'ajouter NewItem := TMenuItem.Create(PopupMenu1); // crée le nouvel élément PopupMenu1.Add(NewItem);// lui ajoute le Popupmenu NewItem.Caption := 'test'; //le texte NewItem.Tag := 0; //ca va permettre par la suite d'identifier l'item NewItem.OnClick := PopupMenuItemsClick; // quand on klik dessus //voici la procedure kan on klik dessus procedure TfMain.PopupMenuItemsClick(Sender: TObject); begin with Sender as TMenuItem do begin //faites ce ke vous voulez //vous pouvez recupérer l'id du menu par la variable Tag if Tag=0 then showmessage('Vous avez cliqué'); end; end;
Par exemple :
Menu := NewMenu(Self, 'MyMenu',
[NewItem('Elément', TextToShortCut('Ctrl+N'),
False, True, Button1.OnClick, 0, 'Item1')]);
Ca creer automatiquement un Menu avec ici l'item 'Element' et tout ce ki fo (action, raccourci...) .
Y a plein d'info la dessus dans l'aide, mots clés 'NewMenu' et 'NewItem'.
Bye.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.