Главная страницаОбратная связьКарта сайта

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


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Итерация элементов управления компонента Notebook", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info