大哥们:
我在RadioGruop中选了一项
怎么把它重置为没选过的状态?
我在RadioGruop中选了一项
怎么把它重置为没选过的状态?
解决方案 »
- delphi程序怎样屏蔽windows所有热键?如alt+tab,ctrl+alt+delte,显示桌面等所有热键
- 用IdFTP控件写上传文件问题
- [Indy]用Indy做很卡 ?
- 各們大俠們,這樣的情況怎樣才能實現透明啊???
- 在Directx编程中,使用全屏模式,在切换到windows时候发现窗体缩到了任务栏的上面,不是在任务栏上,好像该窗体成了Deskop的子窗体,请问如何
- 公司需delphi5并懂韩语的软件开发人员赴韩国
- delphi初学者的问题:文件操作
- 关机问题
- 各位大哥,小妹要查找记录号满足数组a[]的所有记录,help me!在做毕业设计很急的。
- delphi xe5 datasnap 用SQLconnection连接SQL server 2005报错
- 菜鸟求教!如何点击一个按钮打开一个网页?
- 但极板的用什么数据库好
var
Selected : Integer;
begin
Selected := RadioGroup1.ItemIndex;
RadioGroup1.Items.Strings[Selected].Checked:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
s:=Tstringlist.Create;
for i:=0 to radiogroup1.items.count-1 do
begin
s.Add(radiogroup1.Items.Strings[i]);
end;
j:=radiogroup1.items.count-1;
radiogroup1.Items.Clear;
for i:=0 to j do
begin
radiogroup1.Items.Add(s[i]);
end;end;
RadioGroup1.Items.Strings[Selected].Checked:=false;
编译通不过的呀?