在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函數可以獲取節點的值并進行操作。