5,934
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
liuhengwinner 2008-01-08
- 打赏
- 举报
判断一下，如果没有子节点，就ShellExecute 该节点指向的链接 就可以了
zhouchunyu 2008-01-08
- 打赏
- 举报
我试了，楼上的能通过
pengxuan 2008-01-08
- 打赏
- 举报
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Node.Count=0 then
ShellExecute(Self.Handle,'Open','http://www.sina.com',nil,nil,0);
end;
begin
if Node.Count=0 then
ShellExecute(Self.Handle,'Open','http://www.sina.com',nil,nil,0);
end;
