Question

DELPHI 怎么获得 每次在TREEVIEW单击前的那个节点名称？

比如当前TREEVIEW1名称
AAAAA
BBBBB
CCCCC

比如当前TREEVIEW1选中的节点名称为 AAAAA
现在已经单击了 BBBBB‘

procedure TForm1.TreeView1Click(Sender: TObject);
在TreeView1.Click中 怎么每次知道上次单击的那个节点名称

Answer 1

定义变量专门存放上次单击的和本次单击的节点名称，如：
var
oldNode,CurNode:TTreeNode;
...
//Create函数里初始化 oldNode:=nil;CurNode:=nil;
...
然后在单击事件中
oldNode:=CurNode; //把上次的当前节点保存到旧节点中
CurNode:=TreeView1.Selected; //保存当前节点
//然后你便可以利用oldNode做一点事情了

Answer 2

type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure TreeView1Click(Sender: TObject);
private
FLastTreeViewName: string;
{ Private declarations }
public
{ Public declarations }
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
......

FLastTreeViewName := TreeView1.Selected.Text;
end;

Answer 3

自己写个变量把id保存不就行了