Questione : Delfi Pagecontrol - ogni Tabsheet ha relativo proprio menu a finestra

Ho un pagecontrol e vorrei avere un menu a finestra “vicino tutte le altre linguette„. I tabsheets sono generano dinamicamente durante il runtime.
Wolrks benissimo, ma devo determinare che linguetta ha la destra - scattar….? il
Or è là tutta la probabilità attivare questa linguetta prima dell'elaborazione della destra -

thanx di scatto. per il vostro help

class= del

Risposta : Delfi Pagecontrol - ogni Tabsheet ha relativo proprio menu a finestra

Ciao sb67pro. Usare la funzione di TabRect come questo:

procedura TForm1.PopupMenu1Popup (mittente: TObject);
varietà
  CurPos: TPoint;
  R: TRect;
  i: Numero intero;
cominciare
  se GetCursorPos (CurPos) allora
  cominciare
    CurPos: = PageControl1.ScreenToClient (CurPos);
    per la i: = 0 a PageControl1.PageCount-1 fa
    cominciare
      R: = PageControl1.TabRect (i);
      se (>= R.Left di CurPos.X) e (CurPos.X <>= R.Top) e (titolo <>        di CurPos.Y: = “ha scattato sopra la linguetta della pagina„ + IntToStr (i);
    estremità;
  estremità;
estremità;