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

Вот хороший трюк от Xavier Pacheco:

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.

- Ralph Friedman [000952]

Содержание раздела