Question

delphi中如何实现checkbox的多选

delphi中如何实现checkbox的多选

Answer 1

遍历窗体上的控件，是Tcheckbox的就勾上。
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Self.ControlCount - 1 do
if Self.Controls[i] is TCheckBox then
TCheckBox(Self.Controls[i]).Checked := True;
end;

Answer 2

未明白你提问的意思 CHECKBOX本来就是多选的，单选框是RADIOBUTTON。你是不是要做很多个CHECKBOX让他根据个数生成?你可以看下CHECKBOXLIST这个空间。