Delphi动态改变VCL对象的颜色和字体，实现的功能有：储存对象、改变颜色、改变字体。在应用程序运行时动态改变VCL对象，而且改变的VCL对象可使用VCLFramework的Persistent功能保存等。通过改变字体颜色和字体样式来演示这些功能的实现。实现此三功能，代码如下：　　储存对象操作：　　procedureTForm1.Button1Click(Sender:TObject);　　begin　　mss.Clear;　　mss.WriteComponent(Edit2);　　end;　　改变字体颜色操作：　　procedureTForm1.Button2Click(Sender:TObject);　　begin