名前 題名 ▼ OEさん > [開発環境 XE5 Windows7(64)] > > こんばんは、OEと申します。 > よろしくお願い致します。 > > エクスプローラーっぽい機能を付けたくて、 > 表題のものを参考に勉強させて頂いてます。 > 素晴らしいものを公開して下さりMr.Xray様には大変感謝しております。 > ありがとうございます。 > > さて今、解らないことがあります。 > > ボタンをクリックした時に、 > 左ツリーで任意のフォルダを開いた状態(展開した状態)にし、 > 右ビューであるファイルを選択した状態にしたいのです。 > > しかし、下記をしてみたものの思う結果が得られません。 > (RootFolderから変わりませんでした) > > procedure TForm1.Button1Click(Sender: TObject); > var > s : string; > begin > //plFolderTree1.RootFolder:='c:\'; > s :='C:\test\test'; > plFolderTree1.SelectFolder := s; > showmessage(plFolderTree1.SelectFolder); // c:\ と表示される > end; > > > ソースコードを順に追って見てはいるのですが、 > まだまだ知識不足で仕組みが理解できていません。 > どこをどうすれば良いのかわからずにいます。 > > ご教示頂けると助かります。 > よろしくお願い致します。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link