Советы по Delphi
         

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



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