Динамическое заполнение Combobox+CheckBox в FireMonkey

[furstenberg]

Здравствуйте. Пытаюсь динамически заполнить Combobox с CheckBox-ами внутри. Делаю так:

for I := 1 to 10 do
begin
ComboBox1.ListBox.Items.Add('text'+inttostr(i));
end;

for I :=1 to 10 do
begin
ComboBox1.ListItems[i].AddObject(TcheckBox.Create(ComboBox1));
end;

Combobox заполняется. Возникает два вопроса:
1)Если отщелкнуть checkBox-ы, то я никак не могу отследить это:

for I := 2 to 9 do
begin
if ComboBox1.ListItems[i].IsChecked=true then showmessage('Выбран');
end;

ComboBox1.ListItems[i].IsChecked всегда false. Хотя если вручную добавить элементы, то все нормально. В ComboBox1Click что ли надо копать?

2)При заполнении checkBox закрывает начало строки, у ComboBox1.ListItems есть свойства alignText, но почему то им никак не удается воспользоватся?

[volvo877]

  for I := 1 to 10 do
  begin
    ComboBox1.ListBox.Items.Add('text'+inttostr(i));
    ComboBox1.ListItems[i-1].AddObject(TCheckBox.Create(ComboBox1));
    ComboBox1.ListItems[i-1].TextAlign := TTextAlign.taCenter;
  end;

, обращаться к чекбоксу - вот так:

  for I := 2 to 9 do
  begin
    // нулевой чайлд - это TLayout, первый - TCheckBox
    if (ComboBox1.ListItems[i].Children[1] as TCheckBox).IsChecked then
      ShowMessage('Выбран');
  end;

[furstenberg]

В коде

for I := 2 to 9 do
  begin
     if (ComboBox1.ListItems[i].Children[1] as TCheckBox).IsChecked then
      ShowMessage('Выбран');
  end;

почему то на 9-ом элементе

 showmessage(ComboBox1.ListItems[9].Text);

выводит 'text9', а

 if (ComboBox1.ListItems[9].Children[1] as TCheckBox).IsChecked=true then showmessage('Выбран'+inttostr(9))

выводит ошибку First chance exception at $7508B760. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. Process Project2.exe (3116). Ничего не понимаю.

[volvo877]

Очень странно... Вообще-то, если ComboBox заполнялся так, как я показывал, то ComboBox1.ListItems[9].Text должен быть 'text10', проверил - так и есть, именно 10... И никакого исключения не возникает. Попробуй еще проверить, чему равен ComboBox1.ListItems[9].ChildCount...

Если что, у меня XE2, соответственно, первый FM. Они там крутят не пойми что от версии к версии, у меня нет желания постоянно разбираться с их "нововведениями", поэтому версию Дельфи обновлять не собираюсь. Но то, что в некоторых случаях были уже проблемы при нумерации Child-ов при переносе с FMX1 на FMX2 - это факт...

[furstenberg]

С твоим кодом все нормально, работает как говоришь (я в индексе ошибся при заполнении). А как быть вот с такой удивительной штукой:
Заполняю так:

for I := 0 to 10 do
begin
ComboBox1.ListBox.Items.Add('text'+inttostr(i));
ComboBox1.ListItems[i].AddObject(TcheckBox.Create(ComboBox1));
ComboBox1.ListItems[i].TextAlign:=TTextAlign.taCenter;
Memo1.Lines.Add('text'+inttostr(i)+' TcheckBox-'+inttostr(i)+' элементов-'+inttostr(CombohtpekmnfnBox1.ListItems[i].ChildrenCount));
end;

,
результат:
text0 TcheckBox-0 элементов-1
text1 TcheckBox-1 элементов-1
text2 TcheckBox-2 элементов-1
text3 TcheckBox-3 элементов-1
text4 TcheckBox-4 элементов-1
text5 TcheckBox-5 элементов-1
text6 TcheckBox-6 элементов-1
text7 TcheckBox-7 элементов-1
text8 TcheckBox-8 элементов-1
text9 TcheckBox-9 элементов-1
text10 TcheckBox-10 элементов-1
Дальше нажимаю без отщелкивания ComboBox1 и checkbox соотв :

for i := 0 to 10 {ComboBox1.ListBox.Count-1} do
begin
//showmessage();
try
Memo1.Lines.Add(ComboBox1.ListItems[i].Text+' элементов-'+inttostr(ComboBox1.ListItems[i].ChildrenCount));
if (ComboBox1.ListItems[i].Children[1] as TCheckBox).IsChecked=true then
begin
showmessage('Выбран-'+ComboBox1.ListItems[i].Text);
end;

except
Memo1.Lines.Add('-error');
end;

результат:
text0 элементов-1
-error
text1 элементов-1
-error
text2 элементов-1
-error
text3 элементов-1
-error
text4 элементов-1
-error
text5 элементов-1
-error
text6 элементов-1
-error
text7 элементов-1
-error
text8 элементов-1
-error
text9 элементов-1
-error
text10 элементов-1
-error
Теперь просто отщелкиваем ComboBox1 (не выбираем checkbox )
результат:
text0 элементов-2
text1 элементов-2
text2 элементов-2
text3 элементов-2
text4 элементов-2
text5 элементов-2
text6 элементов-2
text7 элементов-2
text8 элементов-1
-error
text9 элементов-1
-error
text10 элементов-1
-error
Что же не так в 8-ом элементе? Непонятно.
Если выбрать какие -нибудь checkbox-сы все работает.и 8-ой и 10-ый и 0-ой. Что то здесь неправильно работает.

[furstenberg]

Volvo, спасибо за информацию.

[volvo877]

Теперь просто отщелкиваем ComboBox1 (не выбираем checkbox )

Это не приводит к показу 8-го элемента, DropDownCount у комбобокса по умолчанию = 8, то есть, показаны будут элементы с 0-го до седьмого, восьмой не будет показан. А пока он не будет показан, FMX не пересчитает его дочерние элементы... Можно обойти вот так:

  for I := 0 to 10 do
  begin
    ComboBox1.ListBox.Items.Add('text'+inttostr(i));
    ComboBox1.ListItems[i].AddObject(TcheckBox.Create(ComboBox1));
    ComboBox1.ListItems[i].TextAlign:=TTextAlign.taCenter;
    ComboBox1.ItemIndex := i; // В процессе добавления показываем
    Memo1.Lines.Add(Format('text%d TCheckBox%d элементов-%d',
      [i, i, ComboBox1.ListItems[i].ChildrenCount]));
  end;
  ComboBox1.ItemIndex := -1; // а потом - скрываем

, тогда без распахивания комбобокса будет корректно отображаться информация о дочерних элементах.