5,392
社区成员
发帖
与我相关
我的任务
分享delphi 怎么实现TPageControl控件的ttabsheet的样式
现在做一个浏览器 tabsheet希望实现像谷歌浏览器那样的效果 但是实现是发现无法设置tabsheet的颜色 用图片的话倒是有一个函数drawtab 但是添加图片后就无法设置tab的标题 要怎么解决？
...全文
请发表友善的回复…
发表回复
军师团连排 2013-09-03
- 打赏
- 举报
谢谢两位了 ，问题已经解决了 
a329905557 2013-08-26
- 打赏
- 举报
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
鐵蛋 2013-08-15
- 打赏
- 举报
用Raize控件吧，比自带的强多了，RzTabsheet就有颜色属性
军师团连排 2013-08-15
- 打赏
- 举报
为嘛木人回答呢军师团连排 2013-08-14
- 打赏
- 举报
自己顶下。。求大神来解决啊 
