Delphi TPageControl带圆角每个选项卡页

我想通过TPagecontrols改进我的应用程序的外观，它带有圆形的cornes，就像DelphiIDE本身使用的那样。我该怎么做

---

Delphi IDE使用TTabSet组件。TPageControl和TTabSet之间的一大区别是，TTabSet不会像TPageControl那样在控件的不同视图之间自动更改。单击选项卡时，需要手动更新显示

您可以覆盖TPageControl选项卡的绘制，使其看起来像TTabSet选项卡。但是，您也可以轻松隐藏页面控件上的选项卡，并添加TTabSet控件以在页面控件的页面之间切换

下面是一些这样做的示例代码。在表单create中，将页面控件中的任何页面添加到选项卡集，并隐藏页面控件上的各个选项卡。然后在选项卡Set OnChange event中切换PageControl上的活动页面

procedure TForm3.FormCreate(Sender: TObject);
var
  i: integer;
begin

  for i := 0 to PageControl1.PageCount - 1 do
  begin
    TabSet1.Tabs.Add(PageControl1.Pages[i].Caption);
    PageControl1.Pages[i].TabVisible := false;
  end;

  TabSet1.TabIndex := 0;

end;

procedure TForm3.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  PageControl1.ActivePageIndex := NewTab;
end;

---

像Delphi IDE一样使用

TTabSet

控件。您可以覆盖

TPageControl

的

PaintWindow

方法来绘制所需的选项卡。我编写了自己的选项卡控件，与Google Chrome中的控件非常相似。您可以像在本问题中所做的那样绘制自己的自定义选项卡