如题
比如tree:
top
  aaa(图片一)
  bbb(图片二)

解决方案 »

  1.   

    Delphi自带功能是加到前面
    如果要按楼主要求做的话,恐怕只能写控件了
      

  2.   

    设置Treeview的ImageList为ImageList1,在ImageList1中装载图标,然后
    写代码如下:
    var
      aaa,bbb: TTreeNode;
    begin
      aaa.ImageIndex := 0;
      aaa.SelectedIndex := 0;
      bbb.ImageIndex := 1;
      bbb.SelectedIndex := 1;  
    end;
      

  3.   

    就是就是,对那个TreeView呀,头都搞大了!
      

  4.   

    VirtualTreeView可以。http://www.delphi-gems.com/VirtualTreeview/VT.php
      

  5.   

    {自定义TreeView的CustomDrawItem事件,根据用户的类型显示不同的颜色,图标等}
    procedure TForm1.TrevUserListCustomDrawItem(
      Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
      var DefaultDraw: Boolean);
    var
      G1:TBITMAP;  
    begin
    try
      G1:= TBITMAP.Create;
      if fileexists(EXTRACTFILEPATH(APPLICATION.ExeName)+'\1.BMP') then
        G1.LoadFromFile(EXTRACTFILEPATH(APPLICATION.ExeName)+'\1.BMP')
      else
        g1:=nil;
        
      DefaultDraw:=true;
      if Node.Selected then
      begin
        TrevUserList.Canvas.Font.Color:=clWhite;
        IF node.Parent <> nil then begin
          if (g1 <> nil) and havideo and (node.Parent.Text='正常') then
            TrevUserList.Canvas.Draw(100,Node.DisplayRect(True).Top,G1);
        end;
      end
      else
      begin
        if Node.StateIndex = 2 then
        begin
          if (Node.ImageIndex = 6) or (Node.ImageIndex = 10) then
            TrevUserList.Canvas.Font.Color:=clRed
          else begin
            TrevUserList.Canvas.Font.Color:=clGreen;
            IF g1 <> nil then begin
              if havideo then
                TrevUserList.Canvas.Draw(100,Node.DisplayRect(True).Top,G1);
              end;
          end;
        end
        else if Node.StateIndex = -1 then
        begin
          TrevUserList.Canvas.Font.Color:=$00934A46;
          TrevUserList.Canvas.Font.Style:=[fsBold];
        end
        else
          TrevUserList.Canvas.Font.Color:=clBlack;  end;  TrevUserList.Canvas.Textout(Node.DisplayRect(True).Left+2,Node.DisplayRect(True).Top+2,Node.Text);
    finally
      G1.Free;
    end;
    end;