Discussion :

[JJJJJ]

Bonjour,

deux questions de niveau débutant :
J'ai un popmenu qui comporte 8 items.
Lorsque le curseur passe sur Panel1, le popmenu apparait avec un seul item visible, par exemple Item[3], ce qui correct.
Mais il y a probablement plus simple que le code ci-dessous pour obtenir cela ?
Ensuite, SANS CLIQUER sur le bouton gauche de la souris, lorsque le curseur sort de Panel1 (et revient donc sur Form1), alors Item[3] devrait devenir invisible. Et bien non, il reste visible, par esprit contrariant sans doute ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
   i:integer;
begin
     for i:=0 to 7 do Popupmenu1.Items[i].visible:=false;
     Popupmenu1.Items[3].visible:=true;
     X:=X+Form1.left+Panel1.left;
     Y:=Y+Form1.top+Panel1.top;
     Popupmenu1.Popup(X, Y);
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
   i:integer;
begin
     for i:=0 to 7 do Popupmenu1.Items[i].visible:=false;
end;

[Andnotor]

Le mieux est de gérer l'entrée et la sortie du panel. Ces événements sont définis dans les dernières versions de Delphi.

Pour les versions précédentes, tu peux surcharger TPanel comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TPanel = class(ExtCtrls.TPanel)
  procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
  procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;

[JJJJJ]

Résultat des courses :
- Pour Andnotor : Le compilateur refuse obstinément. Peut-être parce que ma version de Delphi est trop ancienne (Dephi4).
Merci quand même pour les tentatives...

[Aka Guymelef]

Quelle est le message d'erreur du compilateur ?

[Andnotor]

Et en déclarant les deux constantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CM_MOUSEENTER = $B019;
CM_MOUSELEAVE = $B020;

[JJJJJ]

La première chose qui coince est le "égal" de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TPanel = class(ExtCtrls.TPanel)

le message d'erreur est :
Attendait ':' mais '=' trouvé.
Et si on corrige bêtement en écrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TPanel : class(ExtCtrls.TPanel)

nouveau message d'erreur :
Attendait un identificateur mais CLASS trouvé.
(ce qui n'est pas étonnant)