Предположим, что в TCheckListBox есть 3 строки, одна строка - один файл, щелкаем по строке мышкой и в сетку загружается файл. Делаем изменения в сетке и "поднимаем" флаг изменения файла (переменной присваиваем True). Щёлкаем по другой строке в списке файлов. Сразу активируется новая строка. Прогрмма спрашивает "Сохранить? Да, Нет, Отмена".
При нажатии на кнопку отмена нужно перейти обратно. Но в этом коде сфокусированной остаётся новая (выбранная) строка. Как сфокусировать определённую строку.

Примерный код

Код

if bGridCh then   Case application.MessageBox('Переход к другому номеру тлф.'+#13+'Сохранить изменения?','ВНИМАНИЕ!',MB_YESNOCANCEL) of     IDYES    : begin bGridCh:=false; actQSave.Execute; end;//сохраняем     IDCANCEL : begin lbFiles.ItemIndex:=iCurrRow; Exit; end;//отмена сохранения   end;//case   iCurrRow:=lbFiles.ItemIndex;

Просьба не предлагать использование других компонент - слишком много изменять.

Преблема решена Alex`ом

Код

Case application.MessageBox('Переход к другому номеру тлф.'+#13+'Сохранить изменения?','ВНИМАНИЕ!',MB_YESNOCANCEL) of     IDYES    : begin bGridCh:=false; actQSave.Execute; end;     IDCANCEL : begin              lbFiles.Selected[lbFiles.ItemIndex]:= False;             lbFiles.ItemIndex:=iCurrRow;             lbFiles.Selected[iCurrRow]:= True; Exit; end;   end;//case