Discussion :

[Mimi Bulles]

Bonjour à tous !
J'ai deux petites questions

La première, je voudrais savoir si il existe un composant, un code, ... pour avoir un onglet avec une croix de fermeture.

La seconde question, je voudrais savoir comment fermer une page quelconque via un menu contextuel. J'ai essayé en plaçant un PopupMenu sur le PageControl, mais je ne sais pas récupérer l'onglet sur lequel j'ai cliqué.

Merci beaucoup

[Rayek]

Pagecontrol.ActivePageIndex ou PageControl.ActivePage, apres a toi de voir ce qu'il te convient le mieux

[Mimi Bulles]

oui, mais le fait de faire un clic droit sur l'onglet choisi n'affiche pas la page correspondante, en fait. C'est pour ça que j'essaie de récupérer l'onglet sur lequel j'ai fait un clic droit...

[nikhil]

j'avais le même problème sur une listBox, je l'ai résolu en utilisant la fonction suivante sur l'événement OnContextPopup :

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
19
procedure TFormIHM.ListePHMLContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  Point : TPoint;
begin
  if GetAsyncKeyState( VK_RBUTTON ) <> 0 then
  begin
    //On prend les coordonnées du curseur de souris...
    GetCursorPos(Point);
 
    //Cette ensemble de procédure permet de simuler le click.
    //Un click gauche est constitué de deux clicks : quand le
    //bouton est en haut, et quand le bouton est en bas.
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, Point.X, Point.Y, 0, 0);
    Mouse_Event(MOUSEEVENTF_LEFTUP, Point.X, Point.Y, 0, 0);
 
    Application.ProcessMessages
  end
end;

[Manopower]

Dans Delphi, si tu as plusieurs fiches d'ouvertes, que tu cliques droit sur un onglet d'une fiche qui n'est pas la fiche active en cours, que tu choisis Fermer, c'est bien la fiche active qui se ferme et non pas celle sur laquelle tu as cliqué droit !

Attention à ne pas perturber le pauvre utilisateur en lui mettant des comportements d'applications différents dans tous les sens !