Hi, ich hatte ma das hier gefunden
Delphi-Quellcode:
function TfmMain.InRect(X, Y: Integer; R: TRect): Boolean;
begin
Result:=(X>=R.Left) and (X<=R.Right) and (Y>=R.Top) and (Y<=R.Bottom)
end;
Delphi-Quellcode:
function TfmMain.GetTabSheet(PageControl: TPageControl; Position: TPoint): TTabSheet;
var
iCnt: Integer;
begin
Result:=nil;
iCnt:=0;
while (iCnt<=PageControl.PageCount-1)
and not (InRect(Position.X,Position.Y,PageControl.TabRect(iCnt)))
do
Inc(iCnt);
if iCnt<PageControl.PageCount
then Result:=PageControl.Pages[iCnt]
end;
Delphi-Quellcode:
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;
Ich hoffe, dass es dir hilft.
Bis dennsen