Вот простой код (на форме один ComboBox и две кнопки)

procedure TForm1.Button1Click(Sender: TObject);
var
item: tlistboxitem;
i:integer;
begin
  form1.ComboBox1.Clear;
 for i := 1 to 2 do
  begin
   item := tlistboxitem.Create(nil);
   item.Text := inttostr(i);
   item.Parent := form1.ComboBox1;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
item: tlistboxitem;
i:integer;
begin
  form1.ComboBox1.Clear;
 for i := 3 to 4 do
  begin
   item := tlistboxitem.Create(nil);
   item.Text := inttostr(i);
   item.Parent := form1.ComboBox1;
  end;
end;

В результате Комбик заполняется только один раз, то есть если нажать на первую кнопку то заполнится числами 1 и 2, или если нажать вторую кнопку то заполнится числами 3 и 4, но больше комбик не заполняется другими числами, если была нажата кнопка 1, а потом кнопка 2, то в комбике все равно остаются числа 1 и 2.

Это фиаско((((

Вроде элементарный вопрос, но не могу сообразить что не так. Хочу раскрасить текст элементов combobox в разные цвета или добавить к ним кружки с цветом.

Ни то, ни то не получается.

Вот процедура

procedure TForm28.CreateSystemColor(Name:string; itemcolor:int64; ID:integer);
var
  item: tlistboxitem;
  circle:TCircle;
begin
  item := tlistboxitem.Create(nil);
  item.Parent := Combobox2;
  item.text := Name;
  item.Tag := ID;
  item.StyledSettings := item.StyledSettings - [TStyledSetting.FontColor];
  item.TextSettings.FontColor:=itemcolor;
  item.FontColor := itemcolor;

  circle:=TCircle.Create(item);
  circle.Parent:=item;
  circle.Align:=talignlayout.Right;
  circle.Fill.Color:=itemcolor;
  circle.Stroke.Color:=talphacolorrec.White;
  circle.Visible:=true;
end;

Подскажите, где я накосорезил 

Вот так не работает:

procedure TFormMain.FormCreate(Sender: TObject);
var
  ListBoxItem: TListBoxItem;
  I: Integer;
begin
  for I := 0 to 2 do
  begin
    ListBoxItem := TListBoxItem.Create(ComboBox1);
    ListBoxItem.ItemData.Text := 'Item Random ' + I.ToString;
    ListBoxItem.ItemData.Bitmap := Image1.Bitmap;

    ComboBox1.AddObject(ListBoxItem);
  end;
end;

Спасибо!

testcombobox.zip

Все это в винде. Delphi Berlin.

Запускаем приложение на Андроиде. Один комбобокс идеально отображается, а второй почему-то вертикально не по всей ширине расположен, словно заточен под 32, и под ним полоска образуется.

Как отсортитровать Items ?

Почему у компонента TCombobox нет свойства TextSettings в инспекторе объектов? Зачем оно скрыто?

Помогите, подскажите пожалуйста.... 
 

При вводе каждой новой записи нужно выбрать какое-нибудь значение из него. Реакцию на нажатие ловлю в событии comboBoxChange.

Если второй раз выбрали пункт отличный от первого раза, все прекрасно. Если кликнули на тот-же самый (что для задачи вполне нормально), то comboBoxChange игнорируется,

ведь значение не поменялось. Принудительный перевод ItemIndex = -1 приводит к ошибке.

Как решить проблему? Ситуация вроде обычная.

Спасибо.

В процедуре формируем item'ы. Примерно так:

procedure TForm1.FormCombo(aCombo: TComboBox);
var
 Item: TListBoxItem;
 i: integer;
begin

    aCombo.BeginUpdate;
    aCombo.Items.Clear;

     for I := 0 to 2 do
     begin
        Item := TListBoxItem.Create(nil);
        Item.Text := 'Item '+IntToStr(I);
        Item.StyleLookup:= 'listboxitemstyle';
        Item.Parent := aCombo;
     end;

    aCombo.EndUpdate;
end;

Вызываем при создании формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormCombo(ComboBox1);
  ComboBox1.ItemIndex:= 0;
end; 

и пересоздаем список item'ов после переключения табов.

procedure TForm1.TabControl1Change(Sender: TObject);
begin
  if TabControl1.TabIndex= 0 then
  begin
    FormCombo(ComboBox1);
    ComboBox1.ItemIndex:= 0;
  end;
end;

Естественно, устанавливаем активный item, после того как их список сформирован.

В XE7 всё работает как часы.

В XE8 - артефакт. После переключения табов активный Item - нулевой, но ComboBox не отображает его значение. Визуально это выглядит так, будто ItemIndex = -1.

Проекты для XE7 и XE8 прикрепил.

https://yadi.sk/d/4FGvgF-ti5dWz

Access Violation происходит на последней строчке (AddObject)

Access violation at address 67C1B442, accessing address 25CB0386