delphi中如何动态修改程序中属性,使之在下一次运行的时候仍然保持上次修改的属性?

来源：百度知道 编辑：UC知道 时间：2024/05/26 17:25:50
比如做一个弹出菜单,改变窗体颜色,程序运行后,右击窗体,弹出菜单,把窗体改成红色,但在下一次运行这个程序,窗体又变成了修改前的颜色了,怎样做,才能使窗体仍然保持红色?

这里先给定蓝红黄三种颜色，根据自己需要可以在加
然后写进INI文件做为标志
use inifiles
inifile:Tinifile;

main.create();
inifile:=Tinifile.create('.\sysfile.ini');
if inifile.readstring('test','color','1')=1 then
main.color:=clblue
else if inifile.readstring('test','color','1')=2 then
main.color:=clred
else if inifile.readstring('test','color','1')=3 then
main.color:=clyellow;

//改变颜色的时候
if main.color=clblue then
inifile.writestring('test','color','1')
else if main.color=clred then
inifile.writestring('test','color','2')
else if main.color=clyellow then
inifile.writestring('test','color','3');

inifile.free;