Скрыть шапку у TabSheet

[artemavd]

Добрый день! Как скрыть шапку у TabSheet? А именно в наборе от Alpha Contols. Чтобы не было видно заголовка у таба, а выгялдела как панель. В Raize это реализовано.

[Stilet]

Так может просто заменить на обычные панели?
Или приколоться - подвинуть PageControl выше за верхнюю границу формы на высоту вкладки

[artemavd]

Так может просто заменить на обычные панели?

Если сделать с TabSheet не получится, то использую этот вариант.

подвинуть PageControl выше за верхнюю границу формы на высоту вкладки

Это как? . Думал поиграться со свойством Control - Send To Back и задвинуть шапку под панель например.

[Alter]

TabControl и PageControl только нашел в AS. Где там нашли TabSheet? В какой версии AS?

[A-IX-2]

TabSheet это ж вроде в PageControl вкладка)

[Alter]

Теперь вспомнил . AS написан на основе обычных классов, все основные свойства присутствуют.
Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sComboBox, sButton, ComCtrls, sPageControl;

type
  TForm1 = class(TForm)
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sTabSheet2: TsTabSheet;
    sButton1: TsButton;
    sButton2: TsButton;
    sComboBox1: TsComboBox;
    procedure FormCreate(Sender: TObject);
    procedure sComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  I,II :Integer;
begin
 II := sPageControl1.PageCount;
 If II > 0 then
 For I := 0 To II - 1 do
  sPageControl1.Pages[I].TabVisible := False;
 sPageControl1.ActivePageIndex := 0; 
end;

procedure TForm1.sComboBox1Change(Sender: TObject);
begin
 sPageControl1.ActivePageIndex := sComboBox1.ItemIndex;
end;

end.