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

Posted by maloy under Delphi, Архив

artemavd

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

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.