怎样在treeview中设置背景图片

Question

参考下面的代码：
procedure TForm1.SpeedButton1Click(Sender: TObject);
VAR
  TmpPhoto:TBitmap;
begin
  TmpPhoto:=TBitmap.Create;
  IF OpenPictureDIALOG1.Execute THEN
  BEGIN
     TmpPhoto.LoadFromFile(openPictureDialog1.FileName);
     Treeview1.Canvas.Draw(0,0,TmpPhoto);
  END;
  TmpPhoto.Free;
end;

Answer 1

DELPHI和vb在这里相差很远的，我无法参考

Answer 2

用activetreeview控件，什么都可以做！我就是的！

Answer 3

高手，你在哪里？我在呼唤你：SOS,SOS,SOS.......

Answer 4

调用方法如下:
Private cTVBK As New cTVBackground
Private Sub Form_Load()
    On Error Resume Next
    Dim picBK As StdPicture
    Set cTVBK.pTreeView = TreeView1
    Set picBK = LoadPicture("图片文件名")
    cTVBK.mSetBackPic picBK
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Set cTVBK = Nothing
End Sub

Answer 5

ltpao,thank you very much