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

Previous  Top  Next

    
 

 

Code:

procedure TForm1.ListView1KeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

if Ord(Key) = VK_F2 then

   ListView1.Selected.EditCaption;

end;

©Drkb::01133

http://delphiworld.narod.ru/

DelphiWorld 6.0