名前
題名
▼ Saraさん > ▼ Mr.XRAYさん　こんばんは > > > > う〜ん．SelectFolderが取得できいるみたいなんですが... > > いずれにしても、明日以降に検証してみます。 > > 検証しました。 > > procedure TForm2.FormCreate(Sender: TObject); > begin > flg := True; > end; > > procedure TForm2.FormShow(Sender: TObject); > begin > if flg then begin > flg := False; > plExplorerFolderTree1.RootFolder := ''; > plExplorerFolderTree1.SelectFolder := 'D:\'; > caption := plExplorerFolderTree1.SelectFolder; > end; > end; > > この状態だと、設定がされません・・・ソースをよくよく見ると、 > ItemPrePaint内でFSelectFolderの設定をしているんですね。 > ということは、初期表示前の状態では設定されないんですね・・・(^^; > > と、いうわけで、私のような使い方をしたい場合は、 > SHGetPathFromIDList(FpidlSelectFolder, pFullPath); > FSelectFolder := pFullPath; > の２行が必要そうです・・・(^^; > > よろしくお願いいたします。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link