Question : Delphes Pagecontrol - chaque Tabsheet a son propre menu instantané

J'ai un pagecontrol et voudrais avoir un menu instantané « étroit toutes autres étiquettes ». Les tabsheets sont créent dynamiquement pendant le runtime.
Wolrks très bien, mais je dois déterminer quelle étiquette a le droit - cliquer….? le
Or est là n'importe quelle chance d'activer cette étiquette avant de traiter la droite - le

thanx pour votre help

class= de

Réponse : Delphes Pagecontrol - chaque Tabsheet a son propre menu instantané

Salut sb67pro. Employer la fonction de TabRect comme ceci :

procédé TForm1.PopupMenu1Popup (expéditeur : TObject) ;
variété
  CurPos : TPoint ;
  R : TRect ;
  i : Nombre entier ;
commencer
  si GetCursorPos (CurPos) puis
  commencer
    CurPos : = PageControl1.ScreenToClient (CurPos) ;
    pour I : = 0 à PageControl1.PageCount-1 font
    commencer
      R : = PageControl1.TabRect (i) ;
      si (>= R.Left de CurPos.X) et (CurPos.X <>= R.Top) et (légende <>        de CurPos.Y : = « a cliqué dessus l'étiquette de la page » + IntToStr (i) ;
    extrémité ;
  extrémité ;
extrémité ;