Tab eines TTabControl mit Rechtsklick schließen

[Mazen]

Hallo,
ich habe ein TabControl mit 5 Tabs in Delphi 7. Nun möchte ich mit einem Rechtsklick auf irgendeinen Tab diesen schließen. (Mit einem Popup Menu)
Nur dazu müsste ich irgendwie erkennen über welchem Tab der Rechtsklick gemacht wurde. Die Tabs sind alle variable in der Länge da die Titel sich verändern können. Das einfachste wäre wenn ein Rechtsklick ebenfalls den aktiven Tab wechseln würde, was er aber leider nicht tut :/

Gruß,
Matthias

[Bummi]

TabRect und PtInRect sollten hier helfen.

Delphi-Quellcode:

procedure TForm2.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 i:Integer;
begin
  if ssRight in Shift then
      begin
          for I := 0 to TPageControl(Sender).PageCount - 1 do
              if PtInRect(TPageControl(Sender).TabRect(i),Point(x,y)) then
                Showmessage('Click on' + TPageControl(Sender).Pages[i].Caption)

      end;
end;

[Mazen]

Kurz und bündig, vielen Dank :)

[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;

[stahli]

... "Rechtsklick"

Edit: Ich ziehe meine Aussage zurück. Wo kommt das MenuItem her?