Ajouter des items a un menu

Soyez le premier à donner votre avis sur cette source.

Vue 6 046 fois - Téléchargée 477 fois

Description

Comment ajouter des items a un menu:

Source / Exemple :


//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;

Conclusion :


voir zip pour exemple

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
ah ??? connaissais pas, vai voir ca de plus pres
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Je viens de tomber sur deux fonctions interessantes : NewMenu et NewItem.
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.