小编Dan*_*999的帖子

我是德尔福的新手，我需要一些帮助。

我有一个程序，一个背景颜色变换器，带有TColorDialog. ColorDialog否则效果很好，但是当我关闭而不从中选择颜色时，就会出现问题。然后背景变为黑色，并且还将黑色保存为颜色“0”.ini。

我的代码：

procedure TEinstellungenF.BtnBackgroundClick(Sender: TObject);\nvar filename:String;\nini:TIniFile;\nbegin       // Speichert die im ColorDialog ausgew\xc3\xa4hlten Background Farben in der Ini\n  filename := ExtractFilePath(ParamStr(0)) + 'Einstellungen.ini';\n  ini := TIniFile.Create(filename);\n  ColorDialog1.Execute();\n  try\n    ini.WriteInteger('Farben','Hintergrundfarbe', ColorDialog1.Color);\n  finally\n    ini.Free;\n  end;\n\n  FrmMain.Color := TColor(Ini.ReadInteger('Farben','Hintergrundfarbe',ColorDialog1.Color));\n  Color := TColor(Ini.ReadInteger('Farben','Hintergrundfarbe',ColorDialog1.Color));\nend;``` \n