动态创建CheckBox Demo

varisNo:boolean;ChB: array[1..5] of Tcheckbox;procedure Tform1.checkonClick(sender: TObject);begin  if (sender as TCheckBox).Checked then    ShowMessage((sender as TCheckBox).Caption + '  已选中');end;procedure TForm1.Button1Click(Sender: TObject);  var  i,High: integer;begin  if isNo then  begin                           //防止多次实例化    begin      High := 20;      for i := 1 to 5 do      begin        High := High + 20;        ChB[i] := TCheckBox.Create(self);        ChB[i].Caption := 'chkb' + Inttostr(i);        ChB[i].Top := High;        ChB[i].Left := 56;        ChB[i].Width := 100;        ChB[i].Parent := Grp1;        ChB[i].OnClick := checkonClick;      end;    end;    isNo := False;  end  else    begin    for i := 5 DownTo 1 do      FreeAndNil(ChB[i]);      isNo:=True;    end;end;