动态生成UniCheckBox列，并绑定事件和下标访问

procedure Tmainform.checklistboxclick(Sender: TObject);
begin
  if (sender as TUniCheckBox).Checked then
  begin
   ShowMessage((sender as TUniCheckBox).Caption);
  end;
  //You can use check or tag or the other properties of TunicheckBox
end;
procedure TMainForm.UniBitBtn1Click(Sender: TObject);
var
c : TuniCheckBox;
p : TuniPanel;
  I: Integer;
begin
 for I := 0 to 20 do
 begin
   c:= TUniCheckBox.Create(UniScrollBox1);
   c.Parent := UniScrollBox1;
   c.Caption := IntToStr(i)+'. CheckItems';
   c.OnClick :=checklistboxclick;
   c.Tag := i;// You can use tag like items index that like checkboxlist
   c.Align := altop;
 end;
 p := TUniPanel.Create(UniScrollBox1);;
 p.Parent := UniScrollBox1;
 p.Height :=0;
 p.Align := alTop;
 ///Q:why are there panel ?  为什么用panel的Parent设为 UniScrollBox1?
 //A: Because the last check items of the loop is ride on the the last items.
 //Panel is hidden that.
end;

procedure TMainForm.UniBitBtn2Click(Sender: TObject);
var
  I: Integer;
begin
UniMemo1.Clear;
for I := 0 to UniScrollBox1.ComponentCount-1 do
 begin
   if UniScrollBox1.Components[i].ClassType= TUniCheckBox then
    begin
      if TUniCheckBox(UniScrollBox1.Components[i]).Checked then
       begin
           UniMemo1.Lines.Add('=======================================');
           UniMemo1.Lines.Add('Cap        :'+ TUniCheckBox(UniScrollBox1.Components[i]).Caption);
           UniMemo1.Lines.Add('Item Index :'+ IntToStr(TUniCheckBox(UniScrollBox1.Components[i]).tag));
           UniMemo1.Lines.Add('=======================================');
       end;

    end;
 end;
end;