Delphi - Colordialog 选择黑色作为颜色

Question

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

\n

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

\n

我的代码：

\n

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

\n

Answer 1

检查返回值ColorDialog1.Execute并进行相应操作。

来自文档：

执行打开颜色选择对话框，当用户选择颜色并单击“确定”时返回 true，或者当用户取消时返回 false。