Итерация элементов управления компонента Notebook
Вот две малениких процедурки, присваивающие заголовкам всех компонентов Label на всех страницах компонента NoteBook значение 'Foo'. (Я вам не говорил, что это будет ПОЛЕЗНЫМ примером!)
procedure TForm1.Button1Click(Sender: TObject); VAR M, N : Word; begin FOR N := 0 TO TabbedNotebook1.Pages.Count-1 DOWITH TabbedNotebook1.pages.Objects[N] AS TTabPage DOFOR M := 0 TO ControlCount-1 DOIF Controls[M] IS TLabel THENWITH Controls[M] AS TLabel DOCaption := '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 DOWITH Notebook1.pages.Objects[N] AS TPage DOFOR M := 0 TO ControlCount-1 DOIF Controls[M] IS TLabel THENWITH Controls[M] AS TLabel DOCaption := 'Foo'; end; |