unit TabDis;
interfaceuses
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 dofor i := 0 to ControlCount - 1 doif Controls[i].ClassName = 'TTabButton' thenbegin
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.
Статья Включение и выключение закладки Notebook раздела Компоненты и Классы Вкладки и Страницы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.