Tab eines TTabControl mit Rechtsklick schließen

[DeddyH]

Wenn es sich wirklich um ein TabControl handelt:

Delphi-Quellcode:

procedure TForm1.MenuItemTestClick(Sender: TObject);
var
  IndexOfTab: integer;
  Maus: TPoint;
begin
  Maus := TabControl1.ScreenToClient(PopupMenu1.PopupPoint);
  IndexOfTab := TabControl1.IndexOfTabAt(Maus.X, Maus.Y);
  if IndexOfTab >= 0 then
    ShowMessage(TabControl1.Tabs[IndexOfTab]);
end;