delphi 怎么实现TPageControl控件的ttabsheet的样式

Question

 现在做一个浏览器 tabsheet希望实现像谷歌浏览器那样的效果 但是实现是发现无法设置tabsheet的颜色 用图片的话倒是有一个函数drawtab 但是添加图片后就无法设置tab的标题 要怎么解决？ 

Answer 1

用Raize控件吧，比自带的强多了，RzTabsheet就有颜色属性

Answer 2

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