Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

Автор: Ralph Friedman

Выключать компьютер - Шататься дауном.

Вот хороший трюк от 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.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS