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;