Странное поведение XE8

[Alex Bozhko]

На форму кладём TTabControl с двумя табами. На одном из них помещаем ComboBox.

 

В процедуре формируем 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

Изменено 27 июля, 2015 пользователем Brovin Yaroslav

[Alex Bozhko]

Решается если предварительно перед очисткой списка выполнить

Цитата

ComboBox1.ItemIndex:= -1;

 Но, ИМХО, это не верно.

[enatechno]

В 7/25/2015в17:10, Alex Bozhko сказал:

Решается если предварительно перед очисткой списка выполнить

Цитата

ComboBox1.ItemIndex:= -1;

 Но, ИМХО, это не верно.

Да. Логично было бы если бы сама очистка устанавливала ItemIndex := -1; т.к. Combobox1.Items[0]  в этот момент перестает существовать. А так приходится это делать самому.

Combobox1 перезаполняется если происходит смена индекса, а в приведенном примере он не меняется (был 0 до очистки, присвоили 0 после очистки).

[Brovin Yaroslav]

Добрый день,

 

Да, ошибку исправлю. Используйте 

ComboBox.Clear;

Вместо:

ComboBox.Items.Clear;