5,388
社区成员
发帖
与我相关
我的任务
分享窗体上放一PageControl，如何使PAGECONTROL（含TABSHEET）变透明以露出下面的窗体背景？
窗体上放一PageControl，如何使PAGECONTROL（含TABSHEET）变透明以露出下面的窗体背景？
...全文
请发表友善的回复…
发表回复
adailee 2002-05-30
- 打赏
- 举报
对了，忘了也要处理TMyPageControl的CreateParams
adailee 2002-05-30
- 打赏
- 举报
我也在解决，比较麻烦，但是肯定可以。
方法是：
第一步：自己创建一个类：TMyPageControl，从TCustomTabControl继承准备好这个文件。
第二步，从TTabSheet继承一个TMyTabSheet，重载CreateParams函数，添加代码：
procedure TMyTabSheet.CreateParams(var Params: TCreateParams);
begin
inherited;
params.ExStyle := params.ExStyle + ws_ex_transparent;
end;
第三步，从comCtls.pas中复制TPageControl部分的全部代码，作为你的TMyPageControl所用。
第四步，修改TPageControl中的TTabSheet为你的TMyTabSheet。
编译安装组件，OK.
方法是：
第一步：自己创建一个类：TMyPageControl，从TCustomTabControl继承准备好这个文件。
第二步，从TTabSheet继承一个TMyTabSheet，重载CreateParams函数，添加代码：
procedure TMyTabSheet.CreateParams(var Params: TCreateParams);
begin
inherited;
params.ExStyle := params.ExStyle + ws_ex_transparent;
end;
第三步，从comCtls.pas中复制TPageControl部分的全部代码，作为你的TMyPageControl所用。
第四步，修改TPageControl中的TTabSheet为你的TMyTabSheet。
编译安装组件，OK.
