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