TTabControl - angeklickten Reiter erkennen

[Jim Carrey]

Ich mache das so

Delphi-Quellcode:

procedure TForm1TabControl1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
 showmessage(TabControl1.Tabs[TabControl1.IndexOfTabAt(MousePos.X, MousePos.Y)]);
end;