TPageControl/TTabSheet位置Delphi XE

Question

我在TPageControl上有一些这样的TTabSheet。

Tab1 Tab2 Tab3 Tab4

但是我想要我的第一个标签，开始一个特定的位置，等等；

      Tab1 Tab2 Tab3 Tab4

如何在Delphi XE中设置起始位置？并且鼠标点击将会正常工作。

Answer 1

最简单的解决方案是在第一个选项卡的标题前添加空格(参见下图中的第二个示例)。

但我会选择插入一个无法通过实现PageControl.OnChanging事件将其设置为活动的虚拟选项卡(参见第一个示例)，如下所示：

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange := not PtInRect(PageControl1.TabRect(0),
    PageControl1.ScreenToClient(Mouse.CursorPos));
end;

​

​

Answer 2

你可以看看Raize控件。他们的tabsheet控件有很大的灵活性，但我不知道他们是否能做你想要的。他们有一个很好的可下载的演示程序，你可以用它来看看他们是否做了你想要的。如果你没有找到你想要的，你也可以给他们发电子邮件，询问是否可能。

这不是一个免费的库，但是，我相信，这笔钱是值得的。我们经常使用Raize控件，并且对它们非常满意。