如何在一组checkbox中实现单选？？？ (20分)

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #1

如题

 

N

ning_ning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #2

可以直接使用 CreateObject 创建，然后修改其.onClick=..指派处理程序。
或者在界面中放置足够的个数，分别指定好处理程序，再隐藏起来，需要时再显示出来。

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #3

checkbox tag改为 1。。2。。
每个checkbox事件都指向 checkbox1click事件，即下面事件
var
i:integer;
begin
if (sender as TCheckBox).Checked then
begin
for i:=0 to GroupBox1.ControlCount-1 do
begin
if (GroupBox1.Controlsas tcheckbox).Tag<>(sender as TCheckBox).Tag then
begin
(GroupBox1.Controlsas TCheckBox).Checked:=false;
end;
end;
end;
end;

 

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #4

问题我已经解决了 谢谢关注 ugvanxk的方法我没有测试 应该可行