如何更改TreeView节点高度,在节点中绘制3条线

最简单的方法是在树视图中添加节点时设置节点高度.这样可以避免修改原始VCL控制代码.您需要做的是设置结构的iIntegral成员TVITEMEX,它表示默认节点高度的倍数.如果您需要以像素为单位设置此高度,则必须通过发送TVM_SETITEMHEIGHT消息并将默认节点高度设置为1像素来设置默认节点高度,但树视图的外观会被破坏.

这是一个过程,它将Node参数指定的节点设置Integral为默认节点高度的时间高度:

procedure SetNodeHeight(Node: TTreeNode; Integral: Integer);
var
  ItemEx: TTVItemEx;
begin
  if not Node.Deleting then
  begin
    ItemEx.mask := TVIF_HANDLE or TVIF_INTEGRAL;
    ItemEx.hItem := Node.ItemId;
    ItemEx.iIntegral := Integral;
    TreeView_SetItem(Node.Handle, ItemEx);
  end;
end;

并且将节点设置为默认节点高度的3倍的可能用法:

procedure TForm1.Button1Click(Sender: TObject);
var
  Node: TTreeNode;
begin
  Node := TreeView1.Items.AddChild(nil, 'Node 3 times higher than default');
  SetNodeHeight(Node, 3);
end;

当然,您可以使用这样的代码扩展原始VCL树视图类,但我会将此保留在您身上.