Y yeser_macao Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-13 #1 我只找到选择文件的控件(opendialog)
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-13 #2 uses FileCtrl;<br>procedure TForm1.Button2Click(Sender: TObject);<br>var Path:String;<br>begin<br> Path:='';<br> if SelectDirectory('','c:/',Path) then ShowMessage(Path);<br>end;<br><br>或者你用<br>ShellTreeView自己做一个。
uses FileCtrl;<br>procedure TForm1.Button2Click(Sender: TObject);<br>var Path:String;<br>begin<br> Path:='';<br> if SelectDirectory('','c:/',Path) then ShowMessage(Path);<br>end;<br><br>或者你用<br>ShellTreeView自己做一个。
Y yeser_macao Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-13 #5 谢谢各位的支持,TYZhang的非常好用!<br><br>
