温馨提示×

delphi中的TreeView如果获取value值

小云
190
2023-08-18 12:10:58
栏目: 编程语言

在Delphi中,TreeView的节点不直接提供"value"属性来存储值。但是,您可以通过将值存储在节点的Data属性中,来为节点关联一个值。

以下是一个示例代码,演示如何在TreeView中设置和获取节点的值:

// 设置节点的值
procedure SetNodeValue(Node: TTreeNode; Value: Integer);
begin
Node.Data := Pointer(Value);
end;
// 获取节点的值
function GetNodeValue(Node: TTreeNode): Integer;
begin
Result := Integer(Node.Data);
end;
// 示例用法
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
Value: Integer;
begin
// 添加一个节点并设置值为10
Node := TreeView1.Items.Add(nil, 'Node 1');
SetNodeValue(Node, 10);
// 获取节点的值并显示
Value := GetNodeValue(Node);
ShowMessage('The value of Node 1 is: ' + IntToStr(Value));
end;

在上述示例中,我们使用SetNodeValue函数将一个整数值关联到TreeView的节点中。然后,使用GetNodeValue函数可以获取节点的值并进行操作。

0