这是个很实用的Delphi小功能,可有效提升用户体验,这个功能在Windows7系统开始,也有此功能,就是当更改一个项目名称为空时,自动恢复更改之前的名称,在Windows7,若你对一个文件夹重命名时,当输入的名称为空时,会直接显示之前的名称,当剪切文件名时,也会显示之前的名称,具体实现请参考以下代码: procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange); begin if assigned(listview1.Selected) then