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

Question

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

标签： delphi

Answer 1

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

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;