БОЛЬШОЙ FAQ ПО DELPHI



Итерация элементов управления компонента Notebook

Вот две малениких процедурки, присваивающие заголовкам всех компонентов Label на всех страницах компонента NoteBook значение 'Foo'. (Я вам не говорил, что это будет ПОЛЕЗНЫМ примером!)


 procedure TForm1.Button1Click(Sender: TObject);
 var
   M, N: Word;
 begin
   for N := 0 to TabbedNotebook1.Pages.Count - 1 do
     with TabbedNotebook1.pages.Objects[N] as TTabPage do
       for M := 0 to ControlCount - 1 do
         if Controls[M] is TLabel then
           with Controls[M] as TLabel do
             Caption := 'Foo';
 end;
 
 procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
   var AllowChange: Boolean);
 begin
   Notebook1.PageIndex := TabSet1.TabIndex;
 end;
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
   M, N: Word;
 begin
   for N := 0 to TabbedNotebook1.Pages.Count - 1 do
     with Notebook1.pages.Objects[N] as TPage do
       for M := 0 to ControlCount - 1 do
         if Controls[M] is TLabel then
           with Controls[M] as TLabel do
             Caption := 'Foo';
 
 end;
 




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



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



Видеокурс ВЗЛОМ