如何查找组件设置属性(50分)

Y

yj3385

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

我在窗体上有三个Radiobutton:Radiobutton1,Radiobutton2,Radiobutton3
现在通过传来的参数"3"来的RadioButton3.check := true;要求不用
If ** = 3 then
RadioButton3.checked := true;
而用查找组件的名字的方法来设置上

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #2

可以用RadioGroup呵
这样
RadioGroup.itemindex:=strtoint(**)　;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #3

?

 

Y

yj3385

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #4

我没有用radiogroup

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #5

我的意思是你可以用这个呵
不然
为什么不用你提出的那个呢
有什么问题？？

 

Y

yj3385

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #6

我现在需要解决的就是不用RadioGroup时,可以QQ我153152279

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #7

可以先设置Radiobutton1.tag为1，类推...

如下：
procedure TForm1.btn1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:='3';
for i:=0 to ComponentCount-1 do
if (Components.Tag= strtoint(s)) and (Components is TRadioButton) then
begin
TRadioButton(Components).Checked:=true;
break;
end;
end;

 

Y

yj3385

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #8

接受答案了.