【文件属性】：
文件名称：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)