Discussion :

[diden138]

Bonjour , j'utilise dans mon editeur de code cette fonction pour fermer mes onglets dynamique à travers un popupmenu un peu comme mozilla

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.btclosetabClick(Sender: TObject);
begin
if jvpagecontrol1.PageCount=1 then exit else
begin
jvpagecontrol1.ActivePage.Free;
jvpagecontrol1.ActivePageIndex:=jvpagecontrol1.PageCount-1;
end;
end;

Mais ce que je voudrais faire c'est quand je fais un clique droit ,l'onglet sur lequel pointe le curseur se ferme et non pas l'onglet actif comme moi je le fais actuelement , quelqun aurait-il une idée .

Cordialement

[Graffito]

Bonjour,

Pour un pagecontrol, j'aurais utilisé dans l'event OnContextPopUp la méthode indexoftabAt pour déterminer le volet à fermer.

[diden138]

Merci j'ai réussi à resoudre le probléme comme tu me l'a dit voila le code je suis sur que ça pourrait aider pas mal de gens

Code :

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

1
2
3
4
5
6
 
procedure TForm1.JvPageControl1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
i:=jvpagecontrol1.IndexOfTabAt(mousepos.X,mousepos.Y);
end;

Aprés dans la fonction fermer l'onglet du popupmenu

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.btclosetabClick(Sender: TObject);
begin
if jvpagecontrol1.PageCount=1 then exit else
begin
jvpagecontrol1.Pages[i].Free;
jvpagecontrol1.ActivePageIndex:=jvpagecontrol1.PageCount-1;
end;
end;

Et le tour est joué merci encore graffito ...