I am using AdvTreeView to view data from a db.
I am using AdvTreeView to view data from a db.
Using "root, child: TAdvTreeViewNode;", after getting Root with "Root := TV.AddNode();" root shows a ".tag" property.
I am setting it to the record's Id value. Cool so far.
When I try to use the value with this method:
procedure TfrmQTBugTracker_Main.tvBugsAfterSelectNode(Sender: TObject;
ANode: TAdvTreeViewVirtualNode);
var
id: Integer;
CNode: TAdvTreeViewVirtualNode;
begin
if ANode.Level= 0 then
begin
id := TAdvTreeViewNode(ANode).tag;
begin
dm_qtbt.GetBugHistory(id, tvbughistory);
end;
end;
end;
the Tag value is zero.
Back in Root, I see a DataInteger property.
Can someone show me how to use these properties?
Thanks...Dan'l
Using "root, child: TAdvTreeViewNode;", after getting Root with "Root := TV.AddNode();" root shows a ".tag" property.
I am setting it to the record's Id value. Cool so far.
When I try to use the value with this method:
procedure TfrmQTBugTracker_Main.tvBugsAfterSelectNode(Sender: TObject;
ANode: TAdvTreeViewVirtualNode);
var
id: Integer;
CNode: TAdvTreeViewVirtualNode;
begin
if ANode.Level= 0 then
begin
id := TAdvTreeViewNode(ANode).tag;
begin
dm_qtbt.GetBugHistory(id, tvbughistory);
end;
end;
end;
the Tag value is zero.
Back in Root, I see a DataInteger property.
Can someone show me how to use these properties?
Thanks...Dan'l
Comments
Post a Comment