|
> いえ，間違っていないんです．あのサンプルで使用しているコンポの
これだけでは不親切ですね．
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;
ではでは，がんばってください．
|