Выделить строку в ListView при OwnerData

[remus-xe2]

Парни, перевожу софт на виртуальный listview, наткнулся на грабли....
Мне нужно выделить строки в таблице по определенному признаку, ранее делал так:

  for i := 0 to ClientList.Items.Count - 1 do
    if (ClientList.Items.Item[i].SubItems.Strings[GetColomn(clmn_Status)] <> _('ЗАПУЩЕН')) then
      ClientList.Items.Item[i].Selected := true
    else
      ClientList.Items.Item[i].Selected := false;

после перевода ListView в виртуальный режим этот код перестал работать...

 ClientList.Items.Item[i].Selected := true

после выполнения нечего не происходит, строка не выделяется...
(Ну условие разумеется выполняется там ошибки нету...)

Как программно выбрать элемент в листвью в виртуальном режиме ?

[NetSpace]

если знаете, на какой строке у вас будет выделяться, то попробуйте вне цикла конкретную строку выделить . если и вне цикла не сработает, то дело в самом условии

if (ClientList.Items.Item[i].SubItems.Strings[GetColomn(clmn_Status)] <> _('ЗАПУЩЕН'))

[remus-xe2]

да я пытался и просто строку выбрать

ClientList.Items.Item[0].Selected := true

без цикла и без условия...
и в цикле все строки выделить...

[remus-xe2]

пустой проект создал... кинул листвью, не работает )

[remus-xe2]

очень странно...
ListView1.setfocus;

помог... наверно проблем я еще много хапну с этим виртуальным списком...

[DIONISKA]

Сообщение от remus-xe2

очень странно...

Ничего странного. В listview по-умолчанию поле HideSelection установлено в true, это есть в справке, из-за этого listview теряя фокус скрывает выделение. Так что

       YourListView.HideSelection:=False;

или установить HideSelection в false в дизайнтайме и выделение всегда будет отображаться. Однако оно будет серым, когда компонент не в фокусе. Так что фокус нужно будет установить самому.