Question

delphi CheckBox问题？

在delphi中我添加10个CheckBox...运行时选择5个CheckBox后，退出程序.再重新运行程序时还是上次选择的5个CheckBox。。。就是想保存当前的设置！要怎么做？？？

Answer 1

用读写配置项来实虚嫌现你的程序应该很简单。。
给你个例子，我用了2个checkbox。。
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,inifiles, StdCtrls;

type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
inifile:tinifile;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
inifile:=tinifile.Create('.\1.ini');
if inifile.ReadString('a'没戚,'b','')='1'差察手 then
checkbox1.Checked:=true;
if inifile.ReadString('a','b1','')='1' then
checkbox2.Checked:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if checkbox1.Checked then
inifile.WriteString('a','b','1') else inifile.WriteString('a','b','0');
if checkbox2.Checked then
inifile.WriteString('a','b1','1') else inifile.WriteString('a','b1','0');
inifile.Free;
end;

这样就实现了你功能，，你也可以吧form1的close事件，改成。button的click事件。道理都是一样的

Answer 2

我觉得闭余应该用一数悉段据库表来记录你这10个CHECKBOX的睁态誉值,当你选择(或取消选择)CHECKBOX时,就同时更新表的相应记录的值。我想的话这样应该能轻松解决你的问题

Answer 3

保存设置方法很多。比如 注册表保存，ini文件保存，甚至直接用记事本保存。