怎样把一个ProgressBar嵌入到TTabSheet的标签上

Question

圆角矩形估计麻烦点连续显示可以设置smooth为true;, 大小自已控制procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := TabControl1;
  ProgressBar1.Left := 0;
  ProgressBar1.Top := 0;
  ProgressBar1.Visible := true;
end;

Answer 1

如上 qiubolecn(来自差生市） 的方法！

Answer 2

如果我想要把它画在TTabSheet的Caption栏呢？

Answer 3

TTabSheet 是继承于 TWinControl，也就有办法找到它的 DC ，用该句柄去自己绘制吧

Answer 4

如果我想要把它画在TTabSheet的Caption栏呢？//你的意思是让其显示在上边？
这个好像有点困难；
你的问题：
+++++++++++++++++++++++++++++++
这个ProgressBar要是连续显示的，而不是一个块一个块的显示 
是不是要自己画这个ProgressBar，还是现有的可以实现 
边框是一个圆角矩形形状 
++++++++++++++++++++++++++++++++++
我觉的，你如果用Tgauge也不错的；在samples下的；
如果你一定要把它画在caption上的话，可能canvas要用上；
回头给你试一试；
嗯；你也试一试吧；

Answer 5

VIEW SOURCE
然后把ProgressBar的声明定义什么的都贴入TTabSheet的声明下，然后 ProgressBar就属于TTabSheet了

Answer 6

在tabsheet下声明，就会显示在caption的地方吗？

Answer 7

请你试一下我的代码，本来就是显示在Caption里的：）

Answer 8

如果要那样做的话，
alt+F12
再改也可以啊

Answer 9

to qiubolecn(来自差生市):
我是要显示在tabsheet的caption上，不是tabcontrol

Answer 10

我想通过OwnerDraw实现，
可是在切换TabSheet的时候，就会画的乱七八糟了。该怎么解决？