PageControl设置TabPosition=tpBottom时显示问题的解决办法

bugxiong

我们在使用PageControl组件的时候，如果将TabPosition属性设置成tpBottom，也就是标签在下面的时候，显示会有问题，像断开一样，很丑。
今天在网上找到一个办法，简单实用，一句话搞定。

1. uses
   
2.   UxTheme;
   
3. 
   
4. UxTheme.SetWindowTheme(PageControl1.Handle, NIL, '');   

复制代码

效果如下图所示：

peaceman

感觉xp的风格变成2000的了