1、先将form的font改好。
2、保证组件的parentfont为true即可。比如edit1.parentfont：=true
procedure TForm1.Button1Click(Sender: TObject);
begin
if self.FontDialog1.Execute() then
begin
form1.Font:=self.FontDialog1.Font;
self.Edit1.ParentFont:=true;
end;
end;
3、效果。
二、IDE字体大小
1）regedit
2）修改：
计算机\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Theme 中fontsize=c
