Tab eines TTabControl mit Rechtsklick schließen

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