Delete rows in a listview using DeleteKey

[sanjna000]

Hi,

Does any one know how to delete rows in a listview by using delete key in the key board?

Thank you very much for u r help in advance.

Sanjna...

 

[VintageWine]

Add an OnKeyUp event like:

procedure TForm1.ListView1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(Key=vk_Delete)then
with (Sender as TListView)do
if(ItemFocused<>nil)then
ItemFocused.Delete;
end;

Have fun
Simon

 

[sanjna000]

Hi Simon,
Thank you soooooooo much for u r help. It works nicely.

Thanks again,
Sanjna...