关于radiobutton的选择以及写入INI的问题(30)

主界面有个groupbox控件，里面包含3个radiobutton,每个后面对应有edit框。我想实现单击其中一个，所对应的edit.enabled为true.否则为falseif radiobutton1.checked then edit1.enabled:=trueelse edit1.enabled:=false;end.这么写是不是效率不高啊。最好还想将他们的改动保存到INI中，改怎么写。先给30分，如给出合理答案，则另开标题+100。

edit1.enabled := radiobutton1.checked

这个我知道。但是要实现的功能是，如果我点击radiobutton1后，对应的Edit.enabled:=true;这个时候radiobutton2,3后对应的Edit.enabled:=false;当点击radiobutton2时，1,3后面的enabled:=false,点击radiobutton3时，1,2后面的enabled:=false,改怎么弄，不要跟我说用radiogroup，因为我里面要添加其他控件，所以不能用radiogroup.

procedure TForm1.Timer1Timer(Sender: TObject);begin if RadioButton1.Checked then begin Edit1.Enabled:=true; Edit2.Enabled:=false; Edit3.Enabled:=false; end; if RadioButton2.Checked then begin Edit1.Enabled:=false; Edit2.Enabled:=true; Edit3.Enabled:=false; end; if RadioButton3.Checked then begin Edit1.Enabled:=false; Edit2.Enabled:=false; Edit3.Enabled:=true; end;end;procedure TForm1.FormCreate(Sender: TObject);begin Edit1.Enabled:=false; Edit2.Enabled:=false; Edit3.Enabled:=false; Timer1.Interval:=100;end;

那么怎么样写进INI文件中呢？

很容易的 在uses里面加个 inifiles 单元 procedure TForm1.FormCreate(Sender: TObject);var inifile:Tinifile;begin inifile:=Tinifile.Create(配置文件路径)； Edit1.Enabled:=inifile.ReadString(); Edit2.Enabled:=inifile.ReadString(); Edit3.Enabled:=inifile.ReadString(); Timer1.Interval:=100;end; 在窗口关闭的时候写进去就行了

好的，我试试

接受答案了.