Question

Delphi怎么遍历Groupbox中4个Checkbox哪个选中，并取得他们的Caption值

Delphi怎么遍历Groupbox中4个Checkbox哪个选中，并取得他们的Caption值（或固定为ABCD的值），达到如图所示的效果

Answer 1

用 raize控件好了 RzCheckGroup控件

var
i:integer;
Str:String;
begin
Str:='';
for i:=0 to RzCheckGroup1.Items.Count-1 do
begin
if RzCheckGroup1.ItemChecked[i] then
str:=str+RzCheckGroup1.Items.Strings[i];

end;
showmessage(str);
end;

如果不用raize
那就定义checkbox的名字 依次为 checkBox1 checkBox2 checkBox3 checkBox4
var
i:integer;
Str:String;
begin
Str:='';
for i:=1 to 4 do
begin
if TCheckBox(FindComponent('checkBox'+inttostr(i))).Checked then
str:=str+TCheckBox(FindComponent('checkBox'+inttostr(i))).Caption;

end;
showmessage(str);
end;

追问

不能用第三方控件 我这是个例子 整个软件关联的太多了。。。

Answer 2

Answer 3

参考了dodolon的代码 符合 动画 了
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s:string;
begin
s := '';
for i:=0 to GroupBox1.ControlCount-1 do
begin
if GroupBox1.Controls[i] is TCheckBox then
begin
if TCheckBox(GroupBox1.Controls[i]).Checked then
begin
s := s + TCheckBox(GroupBox1.Controls[i]).Caption
end;
end;
end;
ShowMessage(s);
end;

Answer 4

用一个string 变量 接收 遍历下checkbox 选中就加上 不选就跳过

追问

求源码

追答

网友采纳的就是了