procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin with TreeView1 do begin for i:= 0 to Items.Count -1 do begin if Items[i].HasChildren then begin Items[i].ImageIndex:=0; Items[i].SelectedIndex:=0; Items[i].StateIndex:=0; end else begin Items[i].ImageIndex:=1; Items[i].SelectedIndex:=1; Items[i].StateIndex:=1; end; end; end; end;
原文:https://www.cnblogs.com/jijm123/p/13388351.html