TShellListView创建新的文件夹和重命名为

Question

IM在Delphi中的一个项目工作，我有TShellListView组件（列表），以及按钮来创建新的文件夹：

MkDir(List.RootFolder.PathName+'\New Folder'); 
List.Update; 

但是，当用户创建什么，我需要的是新文件夹，然后该文件夹自动显示在编辑模式下，因此他可以更改文件夹名称，就像在Windows中创建新文件夹一样。

我该怎么做？

Answer 1

尝试这样：

var 
    Path, PathName: string; 
    Folder: TShellFolder; 
    I: Integer; 
begin 
    Path := IncludeTrailingPathDelimiter(List.RootFolder.PathName) + 'New Folder'; 
    if not CreateDir(Path) then Exit; 
    List.Refresh; 
    for I := 0 to List.Items.Count-1 do 
    begin 
    Folder := List.Folders[I]; 
    if (Folder <> nil) and (Folder.PathName = Path) then 
    begin 
     List.Items[I].EditCaption; 
     Exit; 
    end; 
    end; 
end; 

或者：

var 
    Path: string; 
    Item: TListItem; 
begin 
    Path := IncludeTrailingPathDelimiter(List.RootFolder.PathName) + 'New Folder'; 
    if not CreateDir(Path) then Exit; 
    List.Refresh; 
    Item := List.FindCaption(0, 'New Folder', False, True, False); 
    if Item <> nil then 
    Item.EditCaption; 
end; 

Answer 2

我找到了一个解决方案：

MkDir(List.RootFolder.PathName+'\New Folder'); 
List.Update; 
List.ItemIndex:=0; 
List.HideSelection:=True; 
while List.ItemIndex<List.Items.Count-1 do 
begin 
    // Find the New Folder 
    if List.SelectedFolder.PathName=(List.RootFolder.PathName+ '\New Folder') then 
    begin 
    //Set the Folder in Edit mode & exit the loop 
    List.Items[List.ItemIndex].EditCaption; 
    Exit; 
    end 
    else 
    //Inc the Index 
    List.ItemIndex := List.ItemIndex+1; 
end; 
List.HideSelection:=False;