TPageControl transparent background

[rcloutie]

Hi there,

Here's how to set a TPageControl transparent
SetWindowLong(MyPageControl.Handle, GWL_EXSTYLE, WS_EX_TRANSPARENT);

The problem is that the TabSheet also becomes transparent. The only area which need to be transparent if the rect on top-right corner (where tabs take place and where no tabs are defined).

Any idea?

 

[Spent]

I am wondering, will it work for any VCL component if I replace MyPageControl.Handle with the Component's Handle,because if was something similar to make a form transparent?

 

[Spent]

About you problem, why dont you create a second PageControl which will be above the first, won't be transparent and only the tab buttons will be visible. All you have to do is to connect the two pagecontrols so that when Active tabsheet is changed in the second tab, the first changes too.

It's a little messy solution, but it will work.

Regards,
Spent

 

[rcloutie]

New code to preserve existing style:
------------------------------------
var lStyle: LongInt;
lStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, lStyle and
WS_EX_TRANSPARENT);
------------------------------------

TabSheet still transparent and it shouldn't...
One precision: TabSheet is transparent only on first display, that is, when clicking on other tabs and returning back to the first one, problem is gone.

I've tried to put a TPanel over the TabSheet.
Painting is ok (TabSheet.Background=btnFace) but controls lost 3d effect...

Thanks for reply,

Rej Cloutier