delphi - 将上下文菜单添加到 TPageControl 的选项卡

Question

我希望将上下文菜单添加到 TPageControl 的(只是)选项卡，以区别于选项卡区域(例如，像 Delphi 那样提供文件/页面选项)。我知道我可以用 TRzPageControl 做到这一点，但是用 TPageControl 怎么可能呢？

Answer 1

如果您不想创建组件，则始终可以使用 PageControl 的 OnContextPopup 并根据鼠标位置切换其 PopupMenu。

假设您创建了 2 个 PopuMenus pmTab 和 pmPages，以下代码将在点击选项卡区域时显示第一个，否则显示第二个:

procedure TForm2.PageControl1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  with Sender as TPageControl do begin
    if [htOnItem] * GetHitTestInfoAt(MousePos.X, MousePos.Y) <> [] then
      PopupMenu := pmTabs
    else
      PopupMenu := pmPages;
  end;
end;