• 0
DMS

Combobox с иконками

Вопросы

Как отобразить айтемы с иконками?

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

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;


 

Спасибо!

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

3 ответа на этот вопрос

  • 0

Для режима DropDownKind = TDropDownKind.Native TComboBox берет только текст от итемов. Поэтому, если вам нужны иконки и возможность пользоваться всеми свойства TListBoxItem, переключите режим на:

ComboBox1.DropDownKind := TDropDownKind.Custom

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
11 часов назад, Brovin Yaroslav сказал:

Для режима DropDownKind = TDropDownKind.Native TComboBox берет только текст от итемов. Поэтому, если вам нужны иконки и возможность пользоваться всеми свойства TListBoxItem, переключите режим на:


ComboBox1.DropDownKind := TDropDownKind.Custom

Помимо этой строчки, нужно что-то еще писать в коде? У меня иконки не появились

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Почему с Комбобоксом такие сложности с иконками для айтемов? С Листбоксом нет таких проблем

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу