procedure TCustomPage.CheckNewParent(AParent: TWinControl);
begin
if (AParent<>nil) and (not (AParent is TCustomTabControl)) then
raise EInvalidOperation.CreateFmt(rsASCannotHaveAsParent, [ClassName,
AParent.ClassName]);
inherited CheckNewParent(AParent);
end;