一个关于menu check存储的问题

[smallshu]

我在menu中加了几各选项用于更换程序界面。每次选中一个，即n1.checked：=true
没法保存，重新运行这个程序后，右边回最原始的界面，没有保存，布置用什么方法能够保存我的选项，即让程序知道我最后上一次运行程序是选中的那一个

[surfguy]

用ini文件，或一个表保存。
当你的程序运行时，在主窗口的onshow中先读保存好的check值，来决定显示那个界面。

[Drate]

procedure TForm1.Button1Click(Sender: TObject);

var
MyIniFile: TIniFile;
begin
MyIniFile := TIniFile.Create('myapp.ini');
Memo1.Clear;
MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
MyIniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
MyIniFile: TIniFile;
begin

MyIniFile := TIniFile.Create('myapp.ini');

{ if the entry wasn抰 there before, delete it now }
if Memo1.Lines.Values['Title1'] = '' then
MyIniFile.DeleteKey('Transfer', 'Title1')
{ otherwise, restore the old value }
else
MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
MyIniFile.Free;
end;

这是DELPHI中使用TINIFILE类来保存设置的例子，可以参照一下