名前
題名
▼ Mr.XRAYさん > >さて，どうするかですね． > > 必要であれば，その関数内の以下の部分を削除してください． > > ------------- ここから ----------------------------------- > > //現在選択中のノードの下位ノード(孫を除く)のみを検索 > if Pos(FSelectFolder,ASearchPath) > 0 then begin > if Selected <> nil then begin > FolderName := ExtractFileName(ASearchPath); > NowNode:=Selected; > if NowNode.HasChildren then begin > if NowNode.Count = 0 then begin > SetFolderTreeNode(ExtractFilePath(ASearchPath), NowNode); > NowNode.Expand(False); > end; > for i := 0 to NowNode.Count - 1 do begin > if NowNode.Item[i].Text = FolderName then begin > Result := NowNode.Item[i]; > Result.Selected := True; > Result.MakeVisible; > FSelectFolder := ASearchPath; > break; > end; > end; > end; > end; > end; > if Result <> nil then exit; > ------------- ここまでを削除 ----------------------------------- > > > 後で，再度見直しておきますので，とりあえずということで．
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link