Fråga : Delphi Pagecontrol - varje Tabsheet har dess egna popup meny

Jag har en pagecontrol och en skulle något liknande för att ha en popup meny ”slut alla andra flikar”. Tabsheetsna är skapar dynamiskt under runtime.
Wolrks fint, men jag måste att bestämma vilken flik har rätten - att klicka….,?
Or är några riskerar där för att aktivera denna flik, innan det bearbetar rätten - klicka.

thanx för din help

" klar "

Svar : Delphi Pagecontrol - varje Tabsheet har dess egna popup meny

Hi sb67pro. Bruk TabRect fungerar något liknande detta:

tillvägagångssätt TForm1.PopupMenu1Popup (avsändare: TObject);
var
  CurPos: TPoint;
  R: TRect;
  i: Heltal;
börja
  om GetCursorPos (CurPos) därefter
  börja
    CurPos: = PageControl1.ScreenToClient (CurPos);
    för I: = 0 till PageControl1.PageCount-1 gör
    börja
      R: = PageControl1.TabRect (I);
      om (CurPos.X->= R.Left) och (CurPos.X <>= R.Top) och (CurPos.Y <>        förser med text: = ”klickade på flik av sidan” + IntToStr (I);
    avsluta;
  avsluta;
avsluta;