H
huayf
Unregistered / Unconfirmed
GUEST, unregistred user!
有这样一份调查问卷：
A. 贵公司所属地区：（请选一项）
□北京 □香港 □深圳
B 阁下的工作性质：（请选一项）
□管理 □采购 □销售
所有问题及问题选项都是读表动态生成，我目前调用这样一个过程：
procedure TForm2.CheckBoxClick(Sender: TObject);
var nowBox:TCheckBox;
begin
nowBox:=Sender as TCheckBox;
if nowBox.Checked then
begin
if CheckBoxA<>nil then CheckBoxA.Checked:=false;
CheckBoxA:=nowBox;
end
else if CheckBoxA=nowBox then
begin
CheckBoxA:=nil ;
end;
end;
checkbox的onclick事件调用该过程。
能实现单选，但碰到象以上这种情况（不止一个单选问题）的话，在A，B两问题中也只能
选一个。谁能帮帮我？
A. 贵公司所属地区：（请选一项）
□北京 □香港 □深圳
B 阁下的工作性质：（请选一项）
□管理 □采购 □销售
所有问题及问题选项都是读表动态生成，我目前调用这样一个过程：
procedure TForm2.CheckBoxClick(Sender: TObject);
var nowBox:TCheckBox;
begin
nowBox:=Sender as TCheckBox;
if nowBox.Checked then
begin
if CheckBoxA<>nil then CheckBoxA.Checked:=false;
CheckBoxA:=nowBox;
end
else if CheckBoxA=nowBox then
begin
CheckBoxA:=nil ;
end;
end;
checkbox的onclick事件调用该过程。
能实现单选，但碰到象以上这种情况（不止一个单选问题）的话，在A，B两问题中也只能
选一个。谁能帮帮我？