delphi 怎么实现TPageControl控件的ttabsheet的样式
现在做一个浏览器 tabsheet希望实现像谷歌浏览器那样的效果 但是实现是发现无法设置tabsheet的颜色 用图片的话倒是有一个函数drawtab 但是添加图片后就无法设置tab的标题 要怎么解决？
[解决办法]
用Raize控件吧，比自带的强多了，RzTabsheet就有颜色属性
[解决办法]
procedure TFrmShowData.ShowDockForm(FormClass:TFormClass;TCaption:string;dockCtrl: TRzPageControl);
var
i: Integer;
TabCtrl: TRzTabSheet;
Form: TForm;
begin
Screen.Cursor := crHourGlass;
try
for i:=0 to dockCtrl.PageCount-1 do
begin
If dockCtrl.Pages[I].Caption= TCaption then
begin
dockCtrl.ActivePageIndex:=I;
Exit;
end;
end;
TabCtrl := TRzTabSheet.Create(dockCtrl); // dockCtrl
TabCtrl.Caption:=TCaption;
TabCtrl.PageControl := TRzPageControl(dockCtrl);
TRzPageControl(dockCtrl).ActivePageIndex := TabCtrl.PageIndex;
Form := FormClass.Create(TabCtrl);

with Form do
begin
try
ManualDock(TabCtrl);
Show;
Form.WindowState := wsMaximized;
Form.Align := alClient;
except
Free;
end;
end;
finally
Screen.Cursor := crDefault;
end;
end;
参考代码 不懂的可以联系我 329905557