1、写一个tradionbutton的onclick事件就可以了,
然后所有的radionbutton的onclick指向所写的那个radionbutton的onclick事件,操作时用Tradionbutton(sender)就是当前点击的radionbutton
2、你设一个公用变量serabutton:Tradionbutton,radionbutton的事件中写一句,serabutton:=Tradionbutton(sender);
然后对当前选中的操作就是对serabutton操作
然后所有的radionbutton的onclick指向所写的那个radionbutton的onclick事件,操作时用Tradionbutton(sender)就是当前点击的radionbutton
2、你设一个公用变量serabutton:Tradionbutton,radionbutton的事件中写一句,serabutton:=Tradionbutton(sender);
然后对当前选中的操作就是对serabutton操作
for i:=0 to form_supervise.ComponentCount-1 do
if components[i] is TRadiobutton then
begin
if Tradiobutton(components[i]).Checked then
showmessage(components[i].Name);
end;
第一个问题只是变通解决一下...