Как отобразить выделенный ListBoxItem не пользуясь цветом фона

[Ra72]

Есть разноцветные ListBoxItem-ы, надо вывести картинку или радиобатон, которые обозначали бы, что данный пункт сейчас выделен.

Как это сделать?

[xenon54]

Не уверен что правильно понял вопрос, но попробую ответить так как понял.

var
RB : TRadioButton;
begin
  RB := TRadioButton.Create(ListBox1.ItemByIndex(1));
  RB.Parent := ListBox1.ItemByIndex(1);
  RB.Align := TAlignLayout.Right;



end;

Ну или TImage вместо TRadioButton.

[Ra72]

Поясню. У  ListBoxItem-ов  есть некий стиль. В момент его применения рисуются RadioButton из стиля. Как мне в момент изменения состояния Selection данной строки списка, установить точку внутрь  RadioButton?

Первая проблема - найти событие на изменение состояния Selection.

Вторая проблема - изменить состояние RadioButton. 

[xenon54]

Если я правильно понял (Вы сделали свой стиль для ListBoxItem и вставили туда свой RadioButton), то:

1. Вам нужно присвоить "stylename" для этого RadioButton в стиле, допустим назвали вы его "MyRB".

2. В обработчике событий ListBox'a - OnItemClick пишем:

procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
var
i : integer;
begin
   for i := 0 to ListBox1.count-1 do 
      ListBox1.ItemByIndex(i).StylesData['MyRB.IsChecked'] := False;

   Item.StylesData['MyRB.IsChecked'] := True;
end;

[Ra72]

Спасибо, это то что нужно.