请问如何将ColorDialog和FontDialog中的字体设置和颜色设置保存起来。比如保存在INI文件中，以便在下次软件运行时读取?

Question

那就保存在ini文件里吧。
在本次打开时，先取出上一次保存的值，关闭时保存本次设定值

Answer 1

可以将字体设置和颜色转化为字符的形式，存在INI文件中，然后读取的时候在转化回来。

Answer 2

可否具体一点，我以前没有接触过ini文件不好意思

Answer 3

var 
  myinifile:tinifile;
begin
  myinifile:=tinifile.create(filename);
  myinifile.readstring();
  myinifile.writestring();
  myinifile.free;
end;

Answer 4

可看HELP中的立志
procedure TForm1.Button1Click(Sender: TObject);var
  DelphiIni: TIniFile;
  begin
  DelphiIni := TIniFile.Create('c:\windows\delphi32.ini');
  Memo1.Clear;
  DelphiIni.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    DelphiIni.WriteString('Transfer', 'Title1', 'Picture Painter');
  DelphiIni.Free;
end;procedure TForm1.Button2Click(Sender: TObject);var
  DelphiIni: TIniFile;
  begin  DelphiIni := TIniFile.Create('c:\windows\delphi32.ini');  { if the entry wasn抰 there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    DelphiIni.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    DelphiIni.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  DelphiIni.Free;
end;

Answer 5

正好我刚些个demo，不过只有color，font得还没写
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, ComCtrls,inifiles;type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    ColorDialog1: TColorDialog;
    SpeedButton2: TSpeedButton;
    TreeView1: TTreeView;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if colordialog1.Execute then
      form1.color:=colordialog1.Color;
end;procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
     if colordialog1.Execute then
      Treeview1.color:=colordialog1.Color;
end;procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
      if colordialog1.Execute then
      panel1.color:=colordialog1.Color;
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  colorini:Tinifile;
begin
  colorini:=Tinifile.create('color.ini');
  try
    colorini.WriteInteger('color','formback',form1.color);
    colorini.writeinteger('color','treeback',treeview1.color);
    colorini.writeinteger('color','panelback',panel1.color);
  finally
    colorini.free;
  end;
end;procedure TForm1.SpeedButton5Click(Sender: TObject);
var
  colorini:Tinifile;
begin
   colorini:=Tinifile.create('color.ini');
   try
     form1.color:=colorini.ReadInteger('color','formback',form1.color);
     panel1.color:=colorini.readinteger('color','panelback',panel1.color);
     treeview1.color:=colorini.readinteger('color','treeback',treeview1.color);
   finally
     colorini.Free;
   end;
end;procedure TForm1.FormShow(Sender: TObject);
begin
   speedbutton5click(speedbutton5);
end;end.