关于ShellTreeView1的显示限制问题?如何只让ShellTreeView1显示各盘符而不显示'我的电脑','控制面板'等

Question

关于ShellTreeView1的显示限制问题?如何只让ShellTreeView1显示各盘符而不显示'我的电脑','控制面板'等

Answer 1

procedure TForm1.ShellTreeView1Expanded(Sender: TObject; Node: TTreeNode);
var
  I: Integer;
begin
  for I := TShellTreeView(Sender).TopItem.Count - 1 downto 0 do
  begin
    with TShellTreeView(Sender).TopItem[I] do
      if SameText('控制面板', Text) then
      begin
        Delete;
        Break;
      end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellTreeView1.Root := 'rfMyComputer';
end;