folgendes habe ich probiert, das klappt ÜBERHAUPT nicht mit der FilterComboBox!
Es wird immer das selbe im ShellTreeView angezeigt!
http://delphi.about.com/b/a/257631.htm
Wie kann ich einer ShellTreeView sagen, es soll nur z.b. textdateien anzeigen?
Mein Code:
Delphi-Quellcode:
procedure TForm3.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder;
var CanAdd: Boolean);
var
maskExt : string;
fileExt : string;
begin
maskExt := ExtractFileExt(FilterComboBox1.Mask) ;
if maskExt = '*.*' then
begin
CanAdd := true;
Exit;
end;
fileExt := ExtractFileExt(AFolder.DisplayName) ;
CanAdd := AFolder.IsFolder OR (CompareText(maskExt,fileExt) = 0) ;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
ShellTreeView1.ObjectTypes := [otNonFolders]
+ ShellTreeView1.ObjectTypes;
end;
procedure TForm3.FilterComboBox1Change(Sender: TObject);
begin
ShellTreeView1.Refresh(ShellTreeView1.Items.GetFirstNode);
end;