如何实现treeview的跳转! procedure TForm1.TreeView1Click(Sender: TObject);begin TreeView1.Selected:=TreeView1.Selected.getFirstChild;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 奇怪的需求。也许可以用OnChange。还是用OnMouseDown吧,判断鼠标位置所在的节点,然后选中子节点。 procedure TForm1.TreeView1Click(Sender: TObject);begin TreeView1.Selected:=TreeView1.Selected.getFirstChild;end;没有节点自己用try处理好了。 if not TreeNode.HasChildren then exit; procedure TForm1.TreeView1OnChange(Sender:TObject;Node:TTreeNode)begin Node.Expand(False); TreeView1.Selected := Node.getFirstChild;end; 白送分:关于启动软件的问题!! API::SetWindowPos 如何去掉DbGrid的自动添加功能 谁知道有DELPHI5中文帮助的汉化的补丁软件包吗?到那去下载?HELP ME !!!!! 怎么在TreeView控件中获得当前选择的节点名称?? 快要辞职了,送分,周末可能到红叶谷,送分,国庆快到了,送分 把BDE连接控件转换成ADO连接问题。 delphi中的异常处理问题 memo组件 不能读入 *.txt 文件? 请问怎么向delphi中安装组件? 救命哪!!!哪里有DELPHI6下载?100分,分可以再加, 我可以不做数据库吗?太无聊了!!做什么好呢?
begin
TreeView1.Selected:=TreeView1.Selected.getFirstChild;
end;
没有节点自己用try处理好了。
begin
Node.Expand(False);
TreeView1.Selected := Node.getFirstChild;
end;