delphi - 如何通过右键单击来选择 TTabControl 中的选项卡

Question

我有一个与我的 TTabControl 关联的弹出菜单。我希望能够选择该选项卡并通过单击右手按钮来调用下拉菜单。我记得的其他控件似乎有一个右键选择属性。

Answer 1

您可以使用 TPopupMenu 的 OnPopup 事件处理程序:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  TabIndex : integer;
  Pt : TPoint;
begin
  Pt := TabControl1.ScreenToClient(TPopupMenu(Sender).PopupPoint);
  TabIndex := TabControl1.IndexOfTabAt(Pt.X, Pt.Y);
  if(TabIndex <> -1) then
  begin
    TabControl1.TabIndex := TabIndex;
  end;
end;