При наведении на айтем меняется цвет текста и цвет фона выделенного айтема

[Winexcel]

Здравствуйте, стилизую TComboBox, хочу понять как сделать сабж через стили. И хотелось бы ещё получить ответ почему:
в ComboBox при наведении на любой айтем подстветка используется от ListBoxItemStyle - > Selection из стилей.

Изменено 29 июня, 2017 пользователем Winexcel

[Winexcel]

Понял я вот что, в popup окне которое всплывает под комбобоксом находится ListBox, поэтому он и берет стиль от ListBoxStyle.
Вопрос следующий: можно ли как-то задать свой стиль для всплывающего ListBox который используется вместе с компонентом TComboBox?

Изменено 30 июня, 2017 пользователем Winexcel

[Равиль Зарипов (ZuBy)]

да можно получить ListBox и его элементы и присвоить нужные стили

[Winexcel]

27 минут назад, Равиль Зарипов (ZuBy) сказал:

да можно получить ListBox и его элементы и присвоить нужные стили

А можно пример как вообще получить доступ к всплывающему ListBox? Или нужно сам комбобокс переписывать?

[Равиль Зарипов (ZuBy)]

3 часа назад, Winexcel сказал:

А можно пример как вообще получить доступ к всплывающему ListBox? Или нужно сам комбобокс переписывать?

 

[Winexcel]

В 30.06.2017 в 09:38, Равиль Зарипов (ZuBy) сказал:

 

Добрый день! 
Пробую присвоить стиль всем Item так:
 

  List:=TStringList.Create;
  List.Add('Test1');
  List.Add('Test2');
  List.Add('Test3');
  for I := 0 to List.Count-1 do
  begin
    Item:=TListBoxItem.Create(nil);
    Item.Text:=List[i];
    Combo.ListBox.AddObject(Item); 
    Item.StyleLookup:='ListBoxItemStyle2';
    Item.NeedStyleLookup;
  end;
  List.Clear;
  List.Free;

Но все равно по умолчанию применяется стиль ListBoxItemStyle, что нужно сделать чтобы применить стиль?

[Winexcel]

Вот такой вариант тоже не сработал:

procedure TFormMain.ComboPopup(Sender: TObject);
begin
  Combo.ListBox.DefaultItemStyles.ItemStyle:='ListBoxItemStyle2';
end;

 

[Winexcel]

UP

[dnekrasov]

В 10.09.2017 в 19:11, Winexcel сказал:

Вот такой вариант тоже не сработал:

procedure TFormMain.ComboPopup(Sender: TObject);
begin
  Combo.ListBox.DefaultItemStyles.ItemStyle:='ListBoxItemStyle2';
end;

 

Может так сработает:

procedure TFormMain.ComboPopup(Sender: TObject);
begin
  Combo.ListBox.DefaultItemStyles.ItemStyle := 'ListBoxItemStyle2';
  Combo.ListBox.NeedStyleLookup;
  Combo.ListBox.ApplyStyleLookup;
end;