Pergunta : Delphi Pagecontrol - cada Tabsheet tem seu próprio menu emergente

Eu tenho um pagecontrol e gostaria de ter um menu emergente “próximo todas abas restantes”. Os tabsheets são criam dinâmicamente durante runtime.
Wolrks muito bem, mas eu tenho que determinar que aba tem a direita - estalar….? o
Or está lá toda a possibilidade ativar esta aba antes de processar a direita - o

thanx do clique. para seu help

class= do

Resposta : Delphi Pagecontrol - cada Tabsheet tem seu próprio menu emergente

Olá! sb67pro. Usar a função de TabRect como este:

procedimento TForm1.PopupMenu1Popup (remetente: TObject);
var
  CurPos: TPoint;
  R: TRect;
  i: Inteiro;
começar
  se GetCursorPos (CurPos) então
  começar
    CurPos: = PageControl1.ScreenToClient (CurPos);
    para i: = 0 a PageControl1.PageCount-1 fazem
    começar
      R: = PageControl1.TabRect (i);
      se (>= R.Left de CurPos.X) e (CurPos.X <>= R.Top) e (subtítulo <>        de CurPos.Y: = “estalou sobre a aba da página” + IntToStr (i);
    extremidade;
  extremidade;
extremidade;