Vraag : Delphi Pagecontrol - elke Tabsheet heeft zijn eigen popup menu

Ik heb een pagecontrol en zou een popup dicht menu „willen hebben alle andere lusjes“. Tabsheets zijn creëren dynamisch tijdens boete runtime.
Wolrks, maar ik moet bepalen welk lusje heeft klik…. met de rechtermuisknop aan?
Or is daar om het even welke kans om dit lusje vóór verwerking te activeren met de rechtermuisknop aanklikt.

thanx voor uw help

Antwoord : Delphi Pagecontrol - elke Tabsheet heeft zijn eigen popup menu

Hallo sb67pro. De functie van TabRect van het gebruik als dit:

procedure TForm1.PopupMenu1Popup (Afzender: TObject);
var
  CurPos: TPoint;
  R: TRect;
  i: Geheel;
begin
  als GetCursorPos (CurPos) toen
  begin
    CurPos: = PageControl1.ScreenToClient (CurPos);
    voor I: = 0 tot pageControl1.PageCount-1
    begin
      R: = PageControl1.TabRect (I);
      als (CurPos.X >= R.Left) en (CurPos.X <>= R.Top) en (Titel <>        CurPos.Y: = „Geklikt op lusje van pagina“ + IntToStr (I);
    eind;
  eind;
eind;