Delphi怎么让程序记录下上次的CHECKBOX选择情况
展开全部
可以在窗体关闭时把CheckBox的状态保存到ini文件,窗体创建时从ini文件读取。比如:
uses IniFiles;//引用IniFiles单元
窗体创建时(比如OnCreate事件中)
var ini:TiniFile;
IniFileName:string;
begin
IniFileName:=ExtractFilePath(ParamStr(0))+'config.ini';//保存的ini叫config.ini,在你程序的目录下
ini:=TIniFile.Create(IniFileName);
try
CheckBox1.Checked:=Ini.ReadBool('Config',CheckBox1.Name,False);//读
finally
ini.Free;
end;
end;
下面是保存代码(比如放在onClose事件中)
var ini:TiniFile;
IniFileName:string;
begin
IniFileName:=ExtractFilePath(ParamStr(0))+'config.ini';//保存的ini叫config.ini,在你程序的目录下
ini:=TIniFile.Create(IniFileName);
try
Ini.WriteBool('Config',CheckBox1.Name,CheckBox1.Checked);//写
finally
ini.Free;
end;
end;
上面代码随手写的,未测试。有问题自己稍改一下就行了
uses IniFiles;//引用IniFiles单元
窗体创建时(比如OnCreate事件中)
var ini:TiniFile;
IniFileName:string;
begin
IniFileName:=ExtractFilePath(ParamStr(0))+'config.ini';//保存的ini叫config.ini,在你程序的目录下
ini:=TIniFile.Create(IniFileName);
try
CheckBox1.Checked:=Ini.ReadBool('Config',CheckBox1.Name,False);//读
finally
ini.Free;
end;
end;
下面是保存代码(比如放在onClose事件中)
var ini:TiniFile;
IniFileName:string;
begin
IniFileName:=ExtractFilePath(ParamStr(0))+'config.ini';//保存的ini叫config.ini,在你程序的目录下
ini:=TIniFile.Create(IniFileName);
try
Ini.WriteBool('Config',CheckBox1.Name,CheckBox1.Checked);//写
finally
ini.Free;
end;
end;
上面代码随手写的,未测试。有问题自己稍改一下就行了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询