Frage : Delphi Pagecontrol - jedes Tabsheet hat sein eigenes Popup- Menü

Ich habe ein pagecontrol und möchte ein Popup- Menü haben „nah alle weiteren Vorsprünge“. Die tabsheets sind verursachen dynamisch während runtime.
Wolrks fein, aber ich muss feststellen, welcher Vorsprung das Recht hat - klicken….? vor der Verarbeitung des Rechtes
Or ist dort jede mögliche Wahrscheinlichkeit, diesen Vorsprung zu aktivieren - Klicken.

thanx für Ihr help

Antwort : Delphi Pagecontrol - jedes Tabsheet hat sein eigenes Popup- Menü

Hallo sb67pro. TabRect Funktion so verwenden:

Verfahren TForm1.PopupMenu1Popup (Absender: TObject);
var
  CurPos: TPoint;
  R: TRect;
  I: Ganze Zahl;
anfangen
  wenn GetCursorPos (CurPos) dann
  anfangen
    CurPos: = PageControl1.ScreenToClient (CurPos);
    für i: = tun 0 zu PageControl1.PageCount-1
    anfangen
      R: = PageControl1.TabRect (i);
      wenn (CurPos.X >= R.Left) und (CurPos.X <>= R.Top) und (CurPos.Y <>        Untertitel: = „klickte an Vorsprung der Seite“ + IntToStr (i);
    Ende;
  Ende;
Ende;