关于ShellTreeView1的显示限制问题?如何只让ShellTreeView1显示各盘符而不显示'我的电脑','控制面板'等
解决方案 »
- DBGrid显示问题二?
- 新手遇到问题了,大家看看先
- 找不到viewlist了。。。
- DBGridEH判断一个列个的重复值?
- 当serversocket1.Socket.Connections[]数组中一个连接断开时,这个数组会做何调整?
- 那位大虾有数据库处理代码给我看看!!!!!!!!!!!!
- 为什么安装后的Borland目录下的Vbroker\Bin\OsAgent.exe启不来?
- Directive Static, Register, abstract, virtual
- Delphi XE5 for android 串口通讯
- 两个关于DBGRID的问题
- 采用GPRS modem进行无线数据传输的问题( UDP协议)(急!急!急)
- 当一个PANEL像工具栏一样浮动后关闭发生什么事件
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;