Global yarp - messages

Det er muligt jeg misforstår spørgsmålet,men nedenstående lister da alle componenter
i hierarkiet


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to form1.ComponentCount - 1 do
  begin
      memo1.Lines.Add(form1.Components[i].Name  );
  end;

end; 

Jeg har testet med et Tpanel med en Tscrollbox og i scrollboxen en timage

Altså

Panel--
      --- Scrollbox
                    ----Timage

  Stoney

Kan du ikke bruge anchors og align ?

martinlind: Jeg bruger allerede align og ankre, men når panelet "togles" skal den vilkårlige frame i min TNotebook MÅSKE gøre et andet panel synligt.

stoney: Når jeg prøver følgende kode på mit program:

procedure TFormMain.tmpButtonClick(Sender: TObject);
var
  i : integer;
begin
  tmpListBox.Items.BeginUpdate;
  try
    tmpListBox.Items.Clear;
    tmpListBox.Items.Add('Controls: ' + IntToStr(ControlCount));
    for i := 0 to ControlCount - 1 do
      with Controls[i] do
        tmpListBox.Items.Add(ClassName + ': ' + Name);

    tmpListBox.Items.Add('');
    tmpListBox.Items.Add('Components: ' + IntToStr(ComponentCount));
    for i := 0 to ComponentCount - 1 do
      with Components[i] do
        tmpListBox.Items.Add(ClassName + ': ' + Name);
  finally
    tmpListBox.Items.EndUpdate;
  end;
end;

.. så får jeg listet hhv 9 og 1600 komponenter (en grim mainform på +18000 linier). Kører jeg controls/components på TNotebook-komponenten så viser de begge de ti TPage der er på TNotebooken. Det vil sige at de pages der er på en TNotebook ikke er ejet af den, men af mainformen. De kommer altså ikke videre ned i hierarkiet.

Min løsning bliver at lave en løkke der går gennem mainformens Components, fanger TPages og fodrer dem en Broadcast som forhåbentlig kommer til de frames der ligger derpå.

Lukker spørgsmålet