？我想找一个树列表控件同时要有checkbox，就要安装office时选择哪些安装组件时看到的那种，有人知道吗？

Question

放一个ImageList，在ImageList中添加两个CheckBox的图像，一个是选中的，一个未选中的。procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  p: TPoint;
begin
  GetCursorPos(p);
  p := TreeView1.ScreenToClient(p);;
  if htOnIcon in TreeView1.GetHitTestInfoAt(p.x, p.y) then
  begin
    if Node.SelectedIndex = 0 then
    begin
      Node.ImageIndex := 1;
      Node.SelectedIndex := 1;
    end
    else begin
      Node.ImageIndex := 0;
      Node.SelectedIndex := 0;
    end;
  end;
end;