你错是没有错,是delphi的错,你要定义selectedindex才可以,自己体会以下

解决方案 »

  1.   

    每次加tvObj.selectedindex:=tuser.imageindex;
    第一层的imageindex为0,缺省的selectedindex也为0。
      

  2.   

    Procedure  TfrmDB.ListAddChild(tobj:TTreeNode);  
    BEGIN  
      tvObj.Items.AddChild(tobj,'text1').ImageIndex:=1; 
      tvObj.Items.AddChild(tobj,'text1').SelectedIndex:=1;
     
      tvObj.Items.AddChild(tobj,'text2').ImageIndex:=2; 
      tvObj.Items.AddChild(tobj,'text2').SelectedIndex:=2;   ... ... 
    END; 
      

  3.   

    关键是没有设置SelectedIndex的图片索引