Author: Tomas Rutkauskas

I want to set the font property of all my forms, buttons, labels, etc. on 50 
different forms. How do I go about doing this? Is there some RTTI procedure or just 
using the "as" operator? I need this procedure to be recursive, too.

Answer:

You can use RTTI to do this. Here is how to change a particular component:

1   procedure TForm1.BtnClick(Sender: TObject);
2   var
3     p: PPropInfo;
4     f: TFont;
5   begin
6     f := TFont.Create;
7     {Setup the font properties}
8     f.Name := 'Arial';
9     p := GetPropInfo(Sender.ClassInfo, 'Font');
10    if Assigned(p) then
11      SetOrdProp(Sender, p, Integer(f));
12    f.Free;
13  end;


To get at all the forms loop through the Screen global variable. For each form loop through its Components list calling the above procedure (or something close). If you only create your components at design time that is it. If you create some at runtime and the owner is not the form, then for each component loop through its Components list recursively to get at all the owned components.