Pytanie : Delphi Pagecontrol - menu Tabsheet mieć swój swój podręczny menu

I mieć pagecontrol i polubić podręczny menu "wszystkie inny zakładka". The tabsheets być tworzyć klikać podczas runtime.
Wolrks świetnie, ale I musieć jaki zakładka mieć the dobro - klikać….?
Or być tam  jakaś szansa ten zakładka zanim przetwarzać the dobro - stuknięcie.

thanx dla twój help

Odpowiedź : Delphi Pagecontrol - menu Tabsheet mieć swój swój podręczny menu

Cześć sb67pro. Używać TabRect funkcja jak to:

procedura TForm1.PopupMenu1Popup (Nadawca: TObject);
var
  CurPos: TPoint;
  R: TRect;
  i: Integer;
zaczynać
  jeżeli GetCursorPos (CurPos) wtedy
  zaczynać
    CurPos: = PageControl1.ScreenToClient (CurPos);
    dla i: = (0) PageControl1.PageCount-1
    zaczynać
      R: = PageControl1.TabRect (i);
      jeżeli (CurPos.X >= R.Left) i (CurPos.X <>= R.Top) i (CurPos.Y <>        Podpis: = "Klikać na zakładka strona" + IntToStr (i);
    końcówka;
  końcówka;
końcówka;