Итерация элементов управления компонента 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;

[000520]

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