如何创建一个像资源管理器一样的东西

Question

如何创建一个像资源管理器一样的东西,点击文件夹可以看到
目录下的所有文件和文件夹,
点击文件夹前面的"+",向下一层

Answer 1

with TV.Canvas do
  begin
    if None1 <> nil then
    begin
      if None1.Checked then //no picture
      begin
        Brush.Color := BkgColorDialog.Color;
        Brush.Style := FBrushStyle;
        FillRect(ARect);
      end else
        if Tile1.Checked then //tile bitmap
        begin
          Brush.Bitmap := Image1.Picture.Bitmap;
            FillRect(ARect);
          end else //Stretch across the canvas.
              StretchDraw(ARect, Image1.Picture.Bitmap);
    end;
  end;
  DefaultDraw := FDefaultDraw;
  //setting DefaultDraw to false

Answer 2

delphi7 下的demo-->customDraw有现成的例子,仔细看看把