请问DELPHI中有没有这样的控件？？

Question

用法.
在窗体中搞一个ListVeiw、ListImage及Button。procedure TForm1.Button1Click(Sender: TObject);
var
   SearchRec : TSearchRec;
   Path : String;
   Attr : integer;
   Found : integer;
begin
   Path := 'c:\*.*';
   Attr := faAnyFile;
   Found := FindFirst(Path, Attr, SearchRec);
   while Found = 0 do
   begin
       ListView1.Items.Add;
       ListView1.Items[ListView1.Items.Count-1].Caption := (SearchRec.Name);
       Found := FindNext(SearchRec);
   end;
   FindClose(SearchRec);
end;再通过改变ListView的ViewStyle，可以看看不同的显示方式。