popupmenu

je veux faire apparaître un popupmenu en déplaçant la souris sur la fiche
quand la couleur correspond a une valeur fixée.
ça pas de problème
la propriété autopopup a false et la méthode :

Code:

---

popup(x+form1.left,y+form1.top)

---

dans la condition sur la couleur figurant dans un événement onmousemove.
pas de problème ça marche. mais lorsque je quitte ma région qui correspond à la couleur faisant apparaître le popupmenu, je voudrais qu'il disparaisse sans avoir à faire un click problème...
comment faire ?
Merci de vos lumières :lol:

Bonjour,

Jai une solution pas trés élégante, mais qui marche : :?

- Ajouter au items du popup menu un item bidon,
- mettre sa propriété à invisible,
- lui affecter un shortcut (par exemple F1).

Maintenant, quand on veut faire disparaitre le menu, on exécute les instructions qsui simule l'entrée du shortcut au clavier (keydown+keyup) :

Code:

---

1 2 3

keybd_event(VK_F1,0,0,0) ; keybd_event(VK_F1,0,KEYEVENTF_KEYUP,0) ;

---

Salut
J'ai beau chercher, je ne vois pas...

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin form1.OnClick(form1); end;   procedure TForm1.FormClick(Sender: TObject); begin form1.Repaint; end;

---

ne donne rien :cry:

Pas plus que

Code:

---

1 2 3 4 5

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin form1.repaint; end;

---

En fait, tant que le popupmenu est affiché, aucun événement de form1 ne se déclenche (onmousemove...)

Bon, c'est pas gagné :?

je te remercie bien...
même si elle n'est pas très élégante, elle a au moins le mérite de fonctionner et de me dépanner.
8O
merci encore

oui effectivement, je suis passé par là aussi mais sans résultat...
merci tout de même,c'est sympa et bonne soirée à toi.
salut :)