Перейти к содержанию
  • Регистрация
  • 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;


 

Спасибо!

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


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

Рекомендуемые сообщения

  • 0

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

ComboBox1.DropDownKind := TDropDownKind.Custom

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


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

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


ComboBox1.DropDownKind := TDropDownKind.Custom

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

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


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

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

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


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

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


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

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

×
×
  • Создать...