怎样才能把D7的TShellTreeView控件设置为只读？

Question

我找啊找啊找啊找，就是找不到ReadOnly这个属性。
大侠救命啊......

Answer 1

确实没有。
换控件，去窑洞里搜，应该有很多Shell控件

Answer 2

This example uses a button and a label on a form. When the user clicks the button, a Select Directory dialog box appears. The current directory displayed in the dialog box is C:\MYDIR. The user can select a directory from the directory list, or enter a new directory in the edit box. If the user enters a new directory, a message box asks the user if the directory should be created. If the user chooses Yes, the directory is created. If the user chooses No, the message box goes away without creating the directory. The name of the directory the user selects appears as the caption of the label:uses FileCtrl;const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;
不知道能否满足你的要求

Answer 3

在TShellTreeView的OnChange事件里写入
AllowEdit := false;
就可以让它变为只读了。当然，你还要记得别使用默认的系统右键菜单，不然通过菜单去重命名也是可以的。

Answer 4

D6里又怎么改呢
AllowEdit := false;
好像不行