保存颜色

Question

如何能够保存一个控件的当前颜色，在下次打开软件时恢复为当前颜色。（保存到ini文件或注册表文件）

Answer 1

颜色是一个TColor类型, 其它也是一个LongInt类型.所以只要作为一般的LongInt类型来读写就行了.
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.text := floattostr(Form1.Color);
  Edit2.Color := StrToInt64(Edit1.text);
end;

Answer 2

如何能够保存一个控件的当前颜色，在下次打开软件时恢复为当前颜色。（保存到ini文件或注册表文件）既然是保存到注册表，那么你在自己从这个组件派生一个了type 
   TEditX = class(TEdit)
  public 
   constructor Create(AOwner : TObject) ; override;
  end;implements 
 
   constructor Create(AOwner : TObject) ; override;
   var 
     x : TRegistry
   begin
 //     然后对注册表进行操作。 
//      如果不存在那么就写上初始值，否则用取得的值
//      然后你在通过一个过程对该组件给颜色值   end;