Как ListView перевести в режим редактирования по нажатию на F2

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как ListView перевести в режим редактирования по нажатию на F2

На днях одеваюсь, достал из шкафа футболку, просунул руки в рукава и выворачиваю(а то мамка любит все футболки вывернутыми на изнанку в шкаф складывать)...Вывернул. Смотрю - а она наизнанку вывернута. Первая мысль - "Где тут Undo нажимается?"...

procedure TForm1.ListView1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Ord(Key) = VK_F2 then
    ListView1.Selected.EditCaption;
end;