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;
Вопрос
DMS
Как отобразить айтемы с иконками?
Вот так не работает:
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 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.