treeview节点的定位问题?

thomsonyin 2003-08-21 02:26:11
点击节点后,在onchange事件中可以记录其text或绝对位置
在做完某些操作后
我想焦点重新回到刚才的位置
1,怎么样一下子定位到text='aaaaa'的节点?
2,如果节点text有重复,那么怎么样通过绝对位置一下子定位到刚才的位置?
...全文
36 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxpbuaa 2003-08-21
  • 打赏
  • 举报
回复
对了,TreeView1Change要改一下,否则死循环:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if PreNode = Node then Exit;
//……
TreeView1.Selected := PreNode;
end;


————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

ZyxIp 2003-08-21
  • 打赏
  • 举报
回复
hideselection 设为 False;

和楼上的组合使用。
lxpbuaa 2003-08-21
  • 打赏
  • 举报
回复
private
PreNode: TTreeNode;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
PreNode := TreeView1.Selected;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
//……
TreeView1.Selected := PreNode;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
IORILI 2003-08-21
  • 打赏
  • 举报
回复
node.index 和node. text结合使用

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧