有个很简单的方法:
在你Unit 中加个定义:
type
TTabsheetHack = class(TTabSheet);
然后就可以改变TTabSheet的颜色了:
TTabsheetHack(TabSheet1).Color := clRed;
在你Unit 中加个定义:
type
TTabsheetHack = class(TTabSheet);
然后就可以改变TTabSheet的颜色了:
TTabsheetHack(TabSheet1).Color := clRed;
调试欢乐多
Control.Canvas.Brush.Color = clRed;
Control.Canvas.FillRect(Rect);
// 下面用TextRect写上文字就可以了