■MainFormをMDIFormとしてButton1Clickで子フォームにあるMemoのFontを
すべて変更します。　

■コード　
//-------------------------------------------------------------
procedure TMainForm.Button1Click(Sender: TObject);
var
  i , ii : Integer;
  NewFont: TFont;
begin
   NewFont:=TFont.Create ;
   NewFont.Name:='ＭＳ ゴシック';
   NewFont.Size:=15;
   for i := 0 To MDIChildCount - 1 Do
   begin
     for ii:= 0 to (MDIChildren[i]).ComponentCount-1 do
     begin
        if (MDIChildren[i]).Components[ii] is TMemo then
        TMemo(MDIChildren[i].Components[ii]).Font.Assign(NewFont);
     end;
   end;
   NewFont.Free;
end;


                   _/_/   Athena ( VYH00522 )  _/_/





Original document by Athena          氏 ID:(VYH00522)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。