• Algorithms
• Application
• Components
• Database
• Distributed aplication
• DLL
• Errors
• Events
• Hardware
• IDE
• Install Shield
• Internet
• Multimedia
• Object Pascal
• Operational system
• Others
• Security
• Third party
• Win API

Get a count and list all the controls on a TNoteBook

Question:

How can I get a count and list all the controls on a TNoteBook component?

Answer:

The following example demonstrates getting a list of the pages in a TNotebook component, and listing the controls on each page of the Notebook component. The list is added into a Listbox component.

Example:

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;