Hello,

Does anybody have a good recursive method for going through all controls on a form and setting their caption. I am especially thinking about cases where you have a panel within a panel within a panel, etc. and each with its own embedded controls.

Thanks.

// Thom

<thomh> wrote:
> Hello,
>
> Does anybody have a good recursive method for going through all controls
> on a form and setting their caption. I am especially thinking about cases
> where you have a panel within a panel within a panel, etc. and each with
> its own embedded controls.

Not hard to do your own. Just recurse on the too. And you can pass a
callback if that is a better option than coding in-situ.

I can dig something up later as an example.

--
Matthew Jones

procedure UpdatePanelTags(xPanel : TBasicPanel);
var
   nTag : Integer;
   i: integer;
   c: TComponent;
begin
   nTag := xPanel.Tag;
   for i := xPanel.componentcount - 1 downto 0 do
   begin
       c := xPanel.component[i];
       c.Tag := nTag;
       if c is TBasicPanel then
           UpdatePanelTags(TBasicPanel(c));
   end;
end;

Expand as appropriate...

--

Matthew Jones