conteudo de uma page

[Jerfs 1]

Teria jeito de eu saber quais componentes estão dentro de uma página de um PageControl?

[Discorpio 1]

Bom dia Jerfs.

 

Simples

 

Se voce quer saber quais componentes que estão dentro de um TPageControl, é só utilizar o array Controls[] desse componente e saberá somente quantos TTabSheets (Páginas) tem o TPageControl, entretanto para saber os componentes que estão no TTabSheet, este também possui o array Controls[], eis o código:

 

// Para listar apenas os TTabSheets
   procedure TForm1.btnMostraComponente(Sender: TObject);
   var I: Integer;
   begin
	   for I := 0 to Pred(PageControl1.ControlCount) do
			ShowMessage(PageControl1.Controls[I].Name);

   end;

   // Para listar os componentes no interior do TTabSheet
   procedure TForm1.btnMostraComponente(Sender: TObject);
   var I: Integer;
   begin
	   for I := 0 to Pred(TabSheet1.ControlCount) do
			ShowMessage(TabSheet1.Controls[I].Name);

   end;

Um abraço

[Jerfs 1]

valeu!

[Jerfs 1]

Cara, porque a variável está recebendo 'NIL'?