TreeView.DblClick过程中只有参数,不象TreeView.Change(Sender: TObject;Node: TTreeNode)有Node参数。如何解决?谢谢!
使用GetHitTest
function TForm1.getnjnode(name:string): Ttreenode;
var
i:integer;
begin
result:=nil;
for i:=0 to treeView.Items.Count-1 do
begin
if treeView.Items.Item[i].Text=name then
begin
result:=treeView.Items.Item[i];
exit;
end;
end;
end;
在树的单击事件中调用,反回一个节点
procedure TForm1.TreeViewClick(Sender: TObject);
begin
getnjnode(TreeView.Selected.Text):
end;