TreeView设置节点图标

TreeView设置节点图标

没子节点的设置其图标为 0

有节点的设置其图标为 1

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;

来自为知笔记(Wiz)