不知道什么情况

[baidu_29043823]

procedure TForm7.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Selected.Text = Node.Text then
begin
Image1.Picture.LoadFromFile(TreeView1.Selected.Parent.Text + Node.Text); //问题好像出在这里面
end;
end;

运行之后就出现那个图，不知道什么情况，好像是TreeView1.Selected.Parent.Text + Node.Text出了什么问题

我现在是在学treeview。

[lyhoo163]

begin
  if TreeView1.Selected.Text = Node.Text then
  begin
    ShowMessage(TreeView1.Selected.Parent.Text + Node.Text);
//    Image1.Picture.LoadFromFile(TreeView1.Selected.Parent.Text + Node.Text); 
  end;
end;

执行看看显示的文件名是否正确，该文件是还是存在。再作修改。

[doloopcn]

Selected的节点不一定有parent吧，要判定SELECTED节点有没有PARENT才行

[reverzeng]

所选择的节点不存在PARENT的可能性比较大