Узнать TListBoxGroupHeader по items

[Akromd]

Добрый день! Как можно узнать к какому TListBoxGroupHeader принадлежит выбранный TListItems? И Возможно ли вообще? То есть фактически он же не принадлежит ему в формальном смысле, а лишь следует за ним?

[Akromd]

Всем спасибо,сам нашел решение.

[#WAMACO]

Всем спасибо,сам нашел решение.

Так решение то какое?

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

идти циклом вверх от вашего item'a до первого header'a

[Akromd]

идти циклом вверх от вашего item'a до первого header'a

И делать проверку не является ли Item нашим TListBoxGroupHeader

procedure TFormMain.ListAllAchivItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
begin
PositionElement  := ItemIndex;
for I := PositionElement downto 0 do
     if ListAllAchiv.ListItems[i] is TListBoxGroupHeader then
      begin
      //что то делаем
      end;
end;