Delphi在更改的项目名称为空时恢复之前名称.rar

这是个很实用的Delphi小功能，可有效提升用户体验，这个功能在Windows7系统开始，也有此功能，就是当更改一个项目名称为空时，自动恢复更改之前的名称，在Windows7，若你对一个文件夹重命名时，当输入的名称为空时，会直接显示之前的名称，当剪切文件名时，也会显示之前的名称，具体实现请参考以下代码： 　　procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; 　　 Change: TItemChange); 　　begin 　　 if assigned(listview1.Selected) then 　　 begin 　　 if listview1.Selected.Caption='' then 　　 begin 　　 listview1.Selected.Caption:=Names[listview1.ItemIndex]; 　　 end; 　　 end; 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 i:integer; 　　begin 　　 for i:=0 to listview1.Items.Count-1 do 　　 begin 　　 Names[i]:=listview1.Items[i].Caption; 　　 end; 　　end;