ok habe nun eine funzende, einfache Lösung gefunden:
Delphi-Quellcode:
procedure TForm1.AdvTabSetMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if MediaTabs.ItemAtPos(point(x,y))<>-1 then
MediaTabs.TabIndex:=MediaTabs.ItemAtPos(point(x,y));
end;