TabSheet unter der Maus

[SebE]

Erstma en fettes Dankeschön an alle.
Hab's so gemacht:

Code:

procedure TfmMain.PageControlContextPopup(Sender: TObject;  MousePos: TPoint; var Handled: Boolean);
var
  TabSheet : TTabSheet;
begin
TabSheet:=GetTabSheet(PageControl,MousePos);

if TabSheet<>nil
then PageControl.ActivePage:=TabSheet // Nur <> Nil wenn im TabRect geklickt wurde !!!
end;

Genau so wollt ich es haben - Danke Jens Schumann