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