fontdialog.font属性如何保存

Question

其实我的意图是这样的！
在一个窗体中设置字体，把字体保存起来！然后在两外一个窗体中的caption应用这种字体，当程序关闭时这种字体仍然能够保存下来，下次启动程序时不必再设置字体！但需要修改时仍然可以修改！！！

Answer 1

var
  g_Font:TFont;//可定义为全局变量
begin
  g_Font:=FontDialog1.Font;
  ....
end;

Answer 2

//以下例子演示如何生成字体信息文件，并从中加载字体信息来更新控件的字体
procedure TForm1.ButtonSaveFontClick(Sender: TObject);
var
        test:TextFile;
        my:Tfont;
begin
  if FontDialog1.Execute then
  begin//生成字体信息文件c:\test.font
        my:=FontDialog1.Font;
        Assignfile(test,'c:\test.font');
        rewrite(test);
        writeln(test,my.name);
        writeln(test,inttostr(my.size));
        closefile(test);
  end;
end;procedure TForm1.ButtonLoadFontClick(Sender: TObject);
var
        test:TextFile;
        my:Tfont;
        temp:string;
begin
//从c:\test.font加载字体信息来更新label1字体
        my:=TFont.Create ;
        Assignfile(test,'c:\test.font');
        reset(test);
        readln(test,temp);
        my.name:=temp;
        readln(test,temp);
        my.Size:=strtoint(temp);
        label1.Font:=my;
        closefile(test);end;