Включение и выключение закладки Notebook

Code:

unit TabDis;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, TabNotBk;

type

TFrmTabDis = class(TForm)

   TabbedNotebook1: TTabbedNotebook;

   Button1: TButton;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

private

   { Private-Deklarationen }

public

   { Public-Deklarationen }

end;

var

FrmTabDis: TFrmTabDis;

implementation

{$R *.DFM}

procedure TFrmTabDis.FormCreate(Sender: TObject);

var

i: integer;

j: integer;

begin

{ Создаем имена для всех Notebook TTabButton }

j := 0;

with TabbedNotebook1 do

   for i := 0 to ControlCount - 1 do

     if Controls[i].ClassName = 'TTabButton' then

     begin

       Controls[i].Name := Controls[i].ClassName + IntToStr(j);

       Inc(j);

     end;

end;

procedure TFrmTabDis.Button1Click(Sender: TObject);

begin

{ Делаем недоступной определенную страницу notebook }

with TControl(TabbedNotebook1.FindComponent('TTabButton2')) do

   Enabled := not Enabled;

end;

end.