文件名称：Delphi在更改的项目名称为空时恢复之前名称.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 05:19:52
Delphi源码-界面编程
这是个很实用的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;
【文件预览】：
srcfans.com
----0355()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(21KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)