Código Delphi [-] procedure TForm1.TreeView1Click(Sender: TObject); begin if Assigned(TreeView1.Selected) and Assigned(TreeView1.Selected.Parent) then Caption := TreeView1.Selected.Parent.Text; end;
procedure TForm1.TreeView1Click(Sender: TObject); begin if Assigned(TreeView1.Selected) and Assigned(TreeView1.Selected.Parent) then Caption := TreeView1.Selected.Parent.Text; end;