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

[bilibian]

Всем привет!

Пытаюсь реализовать, чтобы чекбоксы на scrollbox создавались динамически.

Пишу так:

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

В итоге на scrollbox появляется всего один чекбокс (десятый), а мне нужно, чтобы были все в колонку. Помогите!!!

[DpolenST]

Chb.parent :=scrollbox1;
Chb.Caption:=inttostr(i);
Chb.Top:=i*20;

[bilibian]

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

Chb.parent :=scrollbox1;
Chb.Caption:=inttostr(i);
Chb.Top:=i*20;

Этот код решает проблему "в столбик", но на scrollbox появляется всего 1 checkbox (последний)

[DpolenST]

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

[bilibian]

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

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

Отлично! Спасибо большое!

[bilibian]

Привет!

Как получить список динамически созданных отмеченных checkbox-ов?

Нашел код, но не работает он у меня!

var
  i: integer;
begin
  for i := 0 to Form1.ControlCount - 1 do
  begin
    if (Form1.Controls[i] is TCheckBox) then
      if (Form1.Controls[i] as TCheckBox).Checked then
      Memo1.Lines.Add((Form1.Controls[i] as TCheckBox).Caption)
  end;
end

Прошу помочь.

[DpolenST]

в предыдущем сообщении ты их добавлял в scrollbox1, вот и ищи их там
то есть
вместо Form1.ControlCount используй Form1.scrollbox1.ControlCount
вместо Form1.Controls[i] используй Form1.scrollbox1.Controls[i]

[bilibian]

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

в предыдущем сообщении ты их добавлял в scrollbox1, вот и ищи их там
то есть
вместо Form1.ControlCount используй Form1.scrollbox1.ControlCount
вместо Form1.Controls[i] используй Form1.scrollbox1.Controls[i]

Спасибо. Выручил

[bilibian]

Пишу Name вместо Caption и получаю пустоту. В чем может быть дело?

[Serge_Bliznykov]

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


теперь по сути.
думаю, что когда создаёте, нужно и имя прописывать:

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