Вот две малениких процедурки, присваивающие заголовкам всех компонентов Label
на всех страницах компонента NoteBook значение "Foo". (Я вам не говорил, что это
будет ПОЛЕЗНЫМ примером!)
procedure TForm1.Button1Click(Sender: TObject);
var
M, N: Word;
beginfor 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 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;
beginfor 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 do
Caption := "Foo";
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Итерация элементов управления компонента Notebook", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!