Динамическое создание Checkbox

[bilibian]

Сообщение от Serge_Bliznykov

чувствую, зря я предыдущую тему прикрыл... может быть, открыть и слить сообщения в одну тему?!

Думаю стоит слить вместе, чтобы чел который тоже заинтересуется данной темой не бегал туда сюда.
----ОК. Слил темы вместе // Модератор

P.S. Спасибо за помощь.

[bilibian]

Мне нужно передать переменную i через checkbox в другой скрипт, через caption - не вариант, а через Name не получается. Как быть?

Продемонстрирую на примере Caption

procedure TForm1.FormCreate(Sender: TObject);
var 
    Chb:TCheckBox;
    i:integer;
begin
  for i := 1 to 10 do begin
      Chb := TCheckBox.Create(scrollbox1);
      Chb.parent :=scrollbox1;
      Chb.Caption:=inttostr(i);
      Chb.Top:=i*20;
  end;
end;

Получаем чекбоксы в столбик:
1
2
3
4
5
..

К примеру я отмечаю чекбоксы 2 и 3. Далее получаю список отмеченных чекбоксов (в котором 2 и 3) и использую в скрипте.

Так вот, как мне сделать тоже самое только НЕ через Caption?

[Serge_Bliznykov]

Мне нужно передать переменную i через checkbox в другой скрипт, через caption - не вариант, а через Name не получается.

расшифруйте, что такое в вашим понимании "скрипт" и что именно Вы в него хотите передать?!

p.s. я так понимаю, что Вам достаточно получить порядковые НОМЕРА выделенных чекбоксов?!
можете, например, для простоты записывать в поле Tag порядковый номер:

  for i := 1 to 10 do begin
      Chb := TCheckBox.Create(scrollbox1);
      Chb.Tag := i;
      Chb.parent :=scrollbox1;
      Chb.Caption:=inttostr(i);
      Chb.Top:=i*20;
  end;

[bilibian]

Сообщение от Serge_Bliznykov

  for i := 1 to 10 do begin
      Chb := TCheckBox.Create(scrollbox1);
      Chb.Tag := i;
      Chb.parent :=scrollbox1;
      Chb.Caption:=inttostr(i);
      Chb.Top:=i*20;
  end;

Именно это мне и нужно! Спасибо!