Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Как получить число и список всех компонентов, расположенных на TNoteBook?

Как получить число и список всех компонентов, расположенных на TNoteBook?

В примере список выводится на Listbox.
Пример:

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru