Afficher un menu en popupmenu

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 601 fois - Téléchargée 29 fois

Contenu du snippet

Ce code permet d'afficher un menu sous forme de popup menu

Source / Exemple :


procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  PosSouris: TPoint;
begin
  if Button = mbRight then //si c le bouton droit
  begin
    GetCursorPos(PosSouris); // récupération de la position de la souris
    TrackPopupMenu(LeMenu.Handle, TPM_LEFTBUTTON or TPM_LEFTALIGN,PosSouris.X, PosSouris.Y, 0, Handle, nil);
    //Changer LeMenu par la nom du menu a afficher
  end;
end;

A voir également

Ajouter un commentaire

Commentaires

cs_Calou
Messages postés
15
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
23 avril 2010
-
Je suis débutant en delphi et j'avoue q'un petit zip m'aiderai bien.

Merci d'avance
cs_djamel001
Messages postés
20
Date d'inscription
lundi 21 janvier 2002
Statut
Membre
Dernière intervention
10 avril 2003
-
DelphiCool t'es un rageux laisse le un peu trankil il t'a démontré ke cété pas la meme chose!!
En plus si tout ce qui était posté devé avoir une vrai fonction y aurait preske rien !
DelphiCool
Messages postés
462
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
-
Comme ça c'est plus clair

dans ton premier comme,taire tu dit "Menu"
Tu ne parle pas de TMainMenu

Bref je ne vois pas trop l'interet ???, alors que les TPopupmenu sont dispo
(je nai pas regarder la taille de l'exe, mais tu doit rien gagner, vu que tu met un mainmenu )

Alors dit moi, s'il te plait, à quoi ça sert ??
fabiin
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6 -
Ben ... j'ai essayé :)
et mes TMainMenu ne s'affiche pas dans la liste, c une liste ki affiche seulement les Tpopupmenu! ;)
ce code permet d'afficher un menu d'un TMaimMenu en Popup
en gros ce code n'as pas besoin de TPopupMenu sur la form :)
DelphiCool
Messages postés
462
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
-
je crois que ta rien compris ;-)))))))))

essaye ce que je t'ai dit avant de me contredire.

C'est exactement la meme chose que le code que ta mis
à part que je n'ecris pas une seule ligne

LE POPUP APPARAIT A L'ENDROIS DE LA SOURIS

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.