13,825
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::FormCreate(TObject *Sender)
{
pgc1->TabHeight = 80;
pgc1->TabWidth = 30;
pgc1->OwnerDraw = True;
pgc1->TabPosition = tpLeft;
ts1->Caption = "库存";
ts2->Caption = "明细";
}
void __fastcall TForm1::pgc1DrawTab(TCustomTabControl *Control,
int TabIndex, const TRect &Rect, bool Active)
{
TPageControl* pgc = dynamic_cast<TPageControl*>(Control);
pgc->Canvas->TextOutA(Rect.left + 10, Rect.top + 8, pgc->Pages[TabIndex]->Caption);
}