Cuestión : Delphi Pagecontrol - cada Tabsheet tiene su propio menú móvil

Tengo un pagecontrol y lo quisiera tener un menú móvil “cercano el resto de las lengüetas”. Los tabsheets son crean dinámicamente durante runtime.
Wolrks muy bien, pero tengo que determinar qué lengüeta tiene la derecha - chascar….¿? el
Or está allí cualquier ocasión de activar esta lengüeta antes de procesar la derecha - el

thanx del tecleo. para su help

class= del

Respuesta : Delphi Pagecontrol - cada Tabsheet tiene su propio menú móvil

Hola sb67pro. Utilizar la función de TabRect como esto:

procedimiento TForm1.PopupMenu1Popup (remitente: TObject);
var
  CurPos: TPoint;
  R: TRect;
  i: Número entero;
comenzar
  si GetCursorPos (CurPos) entonces
  comenzar
    CurPos: = PageControl1.ScreenToClient (CurPos);
    para i: = 0 a PageControl1.PageCount-1 hace
    comenzar
      R: = PageControl1.TabRect (i);
      si (>= R.Left de CurPos.X) y (CurPos.X <>= R.Top) y (subtítulo <>        de CurPos.Y: = “chascó encendido la lengüeta de la página” + IntToStr (i);
    extremo;
  extremo;
extremo;