1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| __fastcall jPageControl::jPageControl(TComponent *AOwner)
: TPageControl(AOwner)
{
if(AOwner->InheritsFrom(__classid(TWinControl))) Parent = (TWinControl*)AOwner;
SetBounds(20,20,220,220);
BringToFront();
new jTabSheet(this, "First"); //pour le test
new jTabSheet(this, "Second"); //idem
Brush->Style = bsClear; //sans quoi chaque changement de page donne un plan grisé
}
__fastcall jPageControl::~jPageControl()
{
}
void __fastcall jPageControl::CreateParams(TCreateParams &Params)
{
TPageControl::CreateParams(Params);
Params.ExStyle = Params.ExStyle | WS_EX_TRANSPARENT;
} |
Partager