Case itemindex of
0:radiobutton1.checked:=true;
1:...
...
end;
0:radiobutton1.checked:=true;
1:...
...
end;
解决方案 »
- 请教一个DELPHI问题:delphi7能否连接其他电脑上的ACCESS数据库?
- webbrowser1 发送粘贴消息的问题
- !!!急求DELPHI4 谁家有珍藏请发我一份
- 求 fastreport 例子
- !!!!!!!应该属于基础,但估计没多少人能写出来(高分抢答时间到)!!!!!!!
- ActiveX
- 哪位高手帮忙看看这段代码,找了好长时间,不知道问提出在什么地方!!
- BORLAND公司提供了VCL的源代码,我希望修改其中的部分,怎样重新编译以生效?
- ADOCONNECTION 怎么使用不固定的SERVER 名
- 怎样让一个复杂运算不影响其他的任务和自己的窗口消息
- 在Delphi重处理Word文档的问题,请帮助.SOS
- 求助!delphi的简单问题!跟者有分
begin
RadioButton1.Tag := 1;
RadioButton2.Tag := 2;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if TRadioButton(Self).Tag = 1 then
begin
RAdioButton1.Checked := true;
end
else
begin
RadioButton2.Checked := true;
end;
end;
var
i:integer;
begin
for i:=0 to self.componentcount-1 do
if (self.components[i] is TRadioButton) and
(TRadioButton(self.components[i]).Tag:= ItemIndex) then
begin
TRadioButton(self.components[i]).Checked:= True;
break;
end;
end;注:事先为每个RadioButton设置Tag属性。