uses CommCtrl;

procedure TForm .PageControl Changing(Sender: TObject; var AllowChange: Boolean); var Info : TTCHitTestInfo; Index : Integer; begin with Info do begin GetCursorPos(pt); pt := PageControl .ScreenToClient(pt); flags := TCHT_ONITEM; end; Index := TabCtrl_HitTest(PageControl .Handle,@Info); AllowChange := Index <> 2; // Or another test that makes sense end; 2/0 / 998 :40:07 PM