名前
題名
▼ Mr.XRAYさん > > いえ，間違っていないんです．あのサンプルで使用しているコンポの > > これだけでは不親切ですね． > FindTextプロパティを有効にするには，OnFolderChangingイベントで > AFindTextを空にして， > > procedure TForm1.plFileList1FolderChanging(Sender: TObject; > var AFindText: String); > begin > // AFindText := ''; > end; > > OnShowイベント等で，ファイルリストを表示する前に設定します． > すると，常に，その文字列を含むファイルのみ表示します． > サンプルのページのコードの場合ですと， > > procedure TForm1.FormShow(Sender: TObject); > begin > //まだルートも設定していないのでフォルダの変更監視はしない > ActiveMonitor := False; > > Self.Width := 644; > Self.Height := 408; > plFileList1.Column[0].Width := 180; > plFolderTree1.Width := 220; > > btnBack.Enabled := False; > btnReName.Enabled := False; > btnCopy.Enabled := False; > btnPaste.Enabled := False; > btnDelete.Enabled := False; > btnNewFolder.Enabled := False; > btnRefresh.Enabled := False; > > > plFileList1.FindText := '.DOC'; //ここを追加 > //ルートフォルダを指定しなければ何も表示しない > plFolderTree1.RootFolder := 'C:\'; > end; > > ではでは，がんばってください．
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link