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