在PageControl的OnMouseUp事件中:
void __fastcall TForm1::PageControl1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
{
int nIndex = PageControl1->IndexOfTabAt(X, Y);
if (nIndex >= 0)
{
PageControl1->ActivePageIndex = nIndex;
TPoint Pos = PageControl1->ClientToScreen(TPoint(X,Y));
PopupMenu1->Popup(Pos.x, Pos.y);
}
}
}
沒有考慮Tab隱藏的情況。
如果要考慮有 Tab 隱藏的情況,需要把 nIndex 轉換為實際的 Index