Карта сайтаСсылкиКонтакты

Получение количества и списка всех компонентов на TNoteBook

PDF Печать
Статьи

Следующий пример демонстрирует получение списка страниц в компоненте TNoteBook и список компонентов на каждой странице TNoteBook. Список добавляется в компонент ListBox.

Поместите на форму компоненты: TNoteBook (Notebook1), TButton (Button1) и TListBox (ListBox1). В компонент TNoteBook поместите какие-либо компоненты (например, кнопку, метку и текстовое поле).

Запишите следующий код в обработчик события кнопки Button1Click.


procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
  p: integer;
begin
  ListBox1.Clear;
  with Notebook1 do begin
    for n := 0 to ControlCount - 1 do begin
      with TPage(Controls[n]) do begin
        ListBox1.Items.Add('Notebook Page: ' + 
                           TPage(Notebook1.Controls[n]).Caption);
        for p := 0 to ControlCount - 1 do
          ListBox1.Items.Add(Controls[p].Name);
        ListBox1.Items.Add(EmptyStr);
      end;
    end;
  end;
end;

При выполнении программы и нажатии на кнопку Button1 в ListBox будет выведен список всех компонентов, которые находятся внутри NoteBook.


 

Добавить комментарий


Защитный код
Обновить